Hola, aqui te dejo un ejemplo:
PUBLIC oCA as CursorAdapter
LOCAL oConn as
ADODB.Connection
LOCAL oRS as ADODB.Recordset
LOCAL oException AS Exception
LOCAL cConnString
* Handle connections - insert connection code
cConnString = [Provider=SQLOLEDB.1;Data Source=localhost;Initial
Catalog=MiBasedeDatos;User ID=;Password=;Integrated Security=SSPI]
TRY
oConn = createobject('
ADODB.Connection')
* Ensure that you handle userid and password if not
* specified in connection string.
* ex. oConn.Open(cConnString, userid, password)
oConn.Open(cConnString)
oRS = CREATEOBJECT("ADODB.Recordset")
oRS.DataSource.CursorLocation = 3 &&adUseClient
oRS.DataSource.LockType = 3 &&adLockOptimistic
oRS.ActiveConnection = oConn