CLEAR local loConnDataSource loConnDataSource = createobject('ADODB.Connection') loConnDataSource.ConnectionString = [provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=C:\MailDat.sdf] loConnDataSource.Open() lodo = CreateObject("CursorAdapter") lodo.Alias = "Test" lodo.DataSourceType="ADO" lodo.DataSource = createobject('ADODB.RecordSet') lodo.DataSource.CursorLocation = 3 && adUseClient lodo.DataSource.LockType = 3 && adLockOptimistic lodo.DataSource.ActiveConnection = loConnDataSource lodo.DataSource.CursorLocation = 3 && adUseClient DO CASE CASE .F. *Microsoft Cursor Engine : Multiple-step operation generated errors. Check each status value lodo.CursorSchema = "ID I, VAL I" lodo.UpdatableFieldList = "ID, VAL" lodo.UpdateNameList = "ID Test.ID, VAL Test.VAL" lodo.Tables = "Test" lodo.KeyFieldList ="ID" CASE .T. ** Cannot insert an empty row from a view or CursorAdapter into its base table(s). lodo.InsertCmd="insert into Test (Val) Values (?Test.Val)" ENDCASE lodo.SelectCmd="select * from Test" lodo.CursorFill() INSERT INTO Test (Val) VALUES (2) ? TABLEUPDATE() =aerror(a) LIST MEMORY LIKE a TO temp.txt TRY CLOSE DATABASES ALL CATCH =aerror(a) LIST MEMORY LIKE a ? TABLEREVERT() CLOSE DATABASES ALL ENDTRY