Numero correlativo utilizando ADO

Amigos
Saludos

Tengo estas instrucciones para llevar un unico correlativo:

Lparameters xTabla

#Define AdOpenKeySet 1
#Define AdLockOptimistic 3
#Define AdCmdText 0x0001

LOCAL Cn, Rs, mSql, IdCodigo

Cn = CREATEOBJECT("ADODB.Connection")
Rs = CREATEOBJECT("ADODB.RecordSet")

Cn.Open("Provider=VFPOLEDB.1;Data Source=D:\Sistema\odbc\Datos.dbc")

xSql = "Select * From Contadores Where tabla ='"+xTabla+"'"

Rs.Open(xSql,Cn,AdOpenKeySet,AdLockOptimistic,AdCmdText)

IdCodigo = 0
IF !Rs.eof()
IdCodigo = Rs.Fields(1).value + 1
Rs.Fields(1).Value = IdCodigo
Rs.Update()
ENDIF

Rs.Close()
Cn.Close()
Release Rs, Cn
RETURN IdCodigo

En la instruccion:

Rs.Fields(1).Value = IdCodigo

Me da un error me dice que el Objeto o Proveedor no puede ejecutar la
intruccion requerida.

Algun comentario sobre el error, trabajo con Vfp7

Darwin Quintero
Venezuela

Agrega esto antes de abrir el recordset.

oRs.CursorLocation = adUseClient

despues de esta liena ya lo abres.(utiliza mejor adLockPessimistic)
Rs.Open(xSql,Cn,AdOpenKeySet,adLockPessimistic,AdCmdText)


Saludos !

Steven Mera.