Cursor Adapters

Cuando intento crear un cursor adapter que lee datos de una tabla de excel
tengo un problema, al llamar CursorFill me da un error que dice Data Type
Mismatch

aqui esta el codigo :

LOCAL oRS as ADODB.RecordSet
LOCAL oConn as ADODB.Connection
LOCAL oCmd as ADODB.Command
LOCAL oCA as CursorAdapter

SET MULTILOCKS ON

oConn = CREATEOBJECT("ADODB.Connection")
WITH oConn
.CursorLocation = 3
.ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\develop\Pruebas.xls;Extended Properties=Excel 8.0;Persist Security
Info=False'
.OPEN()
ENDWITH
oCmd = CREATEOBJECT("ADODB.Command")
oCmd.ActiveConnection = oConn

oRS = CREATEOBJECT("ADODB.RecordSet")
WITH oRS
.ActiveConnection = oConn
.CursorType = 1 && adOpenKeyset
.CursorLocation = 3 && adUseClient
.LockType = 3 && adLockOptimistic
ENDWITH

oCA = CREATEOBJECT("CursorAdapter")
oCA.DATASOURCETYPE = [ADO]
oCA.DATASOURCE = oRS
oCA.Alias = "CA1"
oCA.BUFFERMODEOVERRIDE = 5
oCA.ALLOWUPDATE = .T.
oCA.ALLOWDELETE = .T.
oCA.ALLOWINSERT = .T.
oCA.SELECTCMD = [SELECT * FROM AnteJardin]
oCA.UPDATECMDDATASOURCETYPE = [ADO]
oCA.UPDATECMDDATASOURCE = oCmd
oCA.DELETECMDDATASOURCETYPE = [ADO]
oCA.DELETECMDDATASOURCE = oCmd
oCA.INSERTCMDDATASOURCETYPE = [ADO]
oCA.INSERTCMDDATASOURCE = oCmd
TRY
IF !oCA.CURSORFILL(.F., .F., -1, oCmd)
AERROR(aErrores)
MESSAGEBOX( aErrores(2) )
ENDIF
ENDTRY

Gracias por cualquier ayuda que me puedan brindar,


Mauricio Atanache G.