rec_1=CREATEOBJECT('ADODB.recordset')
rec_1.CursorType=  3   && adOpenStatic   
rec_1.Fields.Append("f1", 129 , 10 ) &&adChar  129 
rec_1.open

ca=CreateObject("CursorAdapter")
ca.Alias='Cur1'
ca.DataSourceType ="ADO"
ca.DataSource = rec_1
ca.SendUpdates=.T.
ca.UpdatableFieldList= "F1"

llReturn = ca.CursorFill(.F., .F.,  0 , rec_1)
? llReturn
IF   Not llReturn Then
	  AERROR(laErrors)
      MESSAGEBOX(laErrors[ 2 ], 0 ,"CursorFill")
ELSE 
	INSERT INTO cur1 (f1) VALUES ("11111")
	INSERT INTO cur1 (f1) VALUES ("22222")
	INSERT INTO cur1 (f1) VALUES ("33333")
ENDIF

TABLEUPDATE( 1 ,.T.,"cur1")

* -------------------------
 
? ca.DataSource.RecordCount 
ca.DataSource.MoveFirst 
? ca.DataSource.Fields("f1").Value