Ayuda con error ADO:BookMark

[mchumpitazv]

Saludos a Todos

Agradecere si alguno de ustedes me indica porque la lines: reg1:=oRs:bookMark() muestra el siguiente error:
Error description: Error ADODB.Recordset/6 DISP_E_UNKNOWNNAME: BOOKMARK
Args:

Stack Calls
===========
Called from: source\rtl\win32ole.prg => TOLEAUTO:BOOKMARK(0)
Called from: C:\SCOW\MAINCMD.PRG => MAINCMD(16)

A la espera de su pronta respuesta

Saludos

Luis

#include "Ado.ch"
FUNCTION MainCmd()
LOCAL oConexionAdo := TOLEAUTO():New("adodb.connection")
LOCAL oComando := TOLEAUTO():New("adodb.command")
LOCAL oRecordset , reg1
LOCAL aDatos := {}
oConexionAdo:Open("Provider=SQLOLEDB.1;Password=;Persist Security Info=False;User ID=Martin;Initial Catalog=APPLOCAL;Data Source=PERLIM_SYS_LCH")
oComando:ActiveConnection(oConexionAdo)
oComando:CommandType:= 4
oComando:CommandText := "sp_Menu"
oRs := TOleAuto():New( "ADODB.Recordset" )
oRs:CursorType := adOpenKeyset
oRs:CursorLocation := adUseClient
oRs:LockType := adLockOptimistic
oRs:Open(oComando:Execute())
reg1:=oRs:bookMark()
DO WHILE .NOT. oRs:Eof()
AADD(aDatos,oRs:Fields(0):value)
oRs:MoveNext()
ENDDO
MsgList(aDatos)
RETURN (.T.)

[ruben Dario]

Porque no retiras la linea
reg1:=oRs:bookMark()

Si te funciona tienes que colocar una condicion que si no es fun de archivo lo ejecute.

[mchumpitazv]

Hola Ruben

El punto es que al trabajar con Ado necesito capturar el registro(recno()) por lo cual necesito el metodo "bookmark", el problema es que muestra el error antes mencionado y no encuentro el porque.

Saludos

Luis