Estoy iniciando con ado, pero no entiendo porque me manda este error.

Error description: Error ADODB.Recordset/16389 E_FAIL: MOVELAST
Args:

Stack Calls

Called from: win32ole.prg => TOLEAUTO:MOVELAST(0)
Called from: => SKIPPER(125)

le agrege llave primaria a la tabla y sigo con el error.

saludos
fernando sandoval ruiz

Local Ors, Obrw, oDlg
oRs = CREATEOBJECT( "ADODB.Recordset" )

TRY
oRs:Open( "SELECT * FROM EMPRESAS ORDER BY NUMCIA", "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;PORT=3306;DATABASE=comandas;UID=root;PWD=root;OPTION=1;" )
CATCH oErr
? oErr:Description
RETURN NIL
END TRY

// oInspect( oRecSet)
//Inspector( oRdd , "oRdd")
DEFINE FONT oFontBrw Name "Ms Sans Serif" SIZE 0,-11

//DEFINE DIALOG oDlg RESOURCE "DLGMANDB" FONT oFontBrw
DEFINE DIALOG oDlg SIZE 300, 300

@ 0, 0 BROWSE oBrw;
       ON RIGHT CLICK oBrw:Report( "TCBrowse report", .T. )

ADD COLUMN TO oBrw;
           DATA oRs:Fields( "NomCia" ):Value;
           HEADER "UTENTI";
           COLOR CLR_RED, CLR_GREEN

ADD COLUMN TO oBrw;
           DATA oRs:Fields( "DirCia" ):Value;
           HEADER "UTENTI";
           COLOR CLR_RED, CLR_GREEN


oBrw:bLogicLen = { || oRs:RecordCount }
oBrw:bGoTop    = { || oRs:MoveFirst() }
oBrw:bGoBottom = { || oRs:MoveLast() }
oBrw:bSkip     = { | nSkip | Skipper( oRs, nSkip ) }
oBrw:cAlias    = "ARRAY"

// oDlg:oClient:=oBrw
// oDlg:SetControl( oBrw )
// oBrw:lCellStyle := .T. // Solo para FW 2.00 ¢ superior
// oBrw:nLineStyle := 3 // Solo para FW 2.00 ¢ superior
// oBrw:Refresh()

/*
REDEFINE BUTTON oBAltas ID 202 OF oDlg ;
ACTION (AltasCias( ID_AALT, oRecSet ) ,SelEmpresa(oWnd, oRecSet ), oRecSet:Refresh(.t.),oBrw:Refresh() , oRecSet:End() ,oDlg:End() , SysRefresh() )

REDEFINE BUTTON oBModificar ID 203 OF oDlg ;
ACTION AltasCias( ID_AMOD, oRecSet )

REDEFINE BUTTON oBBorrar ID 204 OF oDlg ;
ACTION ( if( MsgYesNo( OemToAnsi( ;
"¨Seguro que quiere borrar la Empresa " + oRecSet:Fields("NumCia"):value ) ) , ;
BorrarRegistro(oAdo , "empresas" , "numemp" , oRecSet:Fields("NumCia"):value ) , "" ) , oRecSet:refresh() )

REDEFINE BUTTON oBSeleccion ID 201 OF oDlg ;
ACTION (SelEmpresa(oWnd , oRecSet ), SysRefresh() ,oDlg:End())

REDEFINE BUTTON oBSalir ID 206 OF oDlg ;
ACTION ( oTb:Close(), oDlg:End())
*/

ACTIVATE DIALOG oDlg ;
ON INIT oDlg:SetControl( oBrw ) ;
CENTER

oFontBrw:End()

RETURN( NIL )

No sera la propiedad de navegacion de tu Recorset??

Gracias manuel, he seguido los ejemplos publicados aqui en internet asi como documentacion del ado, cual seria la manera correcta de especificar el recordser o de cambiarla?

gracias.
fernando sandoval ruiz