Recordset update method failed

[carolyn]

I'm using VB5 SP3, connecting to database via ODBC.

Set WS = DBEngine.CreateWorkspace("MainWS", "admin", vbNullString, dbUseODBC)
Set CN = WS.OpenConnection("", dbDriverNoPrompt, False, strConnect)
Set RS = CN.OpenRecordset("select * from table", dbOpenDynaset, 0, dbPessimistic)

Private Sub Command1_Click()
    With RS
        .Edit
        ![cc] = Text1(2).Text
        ![ii] = Text1(0).Text
        .Update
        .Bookmark = .LastModified
    End With
End Sub

The table consists of 2 columns, ii of type int4 and cc of type varchar(100).

The code fails at '.Update', get the error message 3146 ODBC -- Call failed.

Any idea?