MsAccess via ODBC

please help! my boss is back in office tomorrow and I need a solution

I used an Access-Db via jet in the last five projects without any problems.

Now I should access the db via odbc and it doesn't work just as fine.
It's no problem to read data out of the tables but I'm not able to update or edit them.
Vb always complains that my db is write protected.

    Dim wks As Workspace
    Set wks = CreateWorkspace("wksTest", "Admin", "admin", dbUseODBC)
    
    Dim dbs As Database
    Set dbs = wks.OpenDatabase("Test", dbDriverNoPrompt, False, "ODBC;DSN=Test;")   
    
    Dim rsTest As Recordset
    Set rsTest = dbs.OpenRecordset("SELECT * FROM Test", dbOpenDynaset)

    With rsTest
        .Edit
        'runtime-error 3027
        !strData = "Edited"
        .Update
    End With
    
    With rsTest
        .AddNew
        'runtime-error 3027
        !strData = "New"
        .Update
    End With

    'works well
    While (Not (rsTest.EOF))
        Debug.Print rsTest!strData
        rsTest.MoveNext
    Wend
    
    Debug.Print dbs.Updatable
    'prints true
    
    Debug.Print rsTest.Updatable
    'prints false
    
    Dim fld As Field
    For Each fld In rsTest.Fields
        Debug.Print fld.Name, CStr(fld.DataUpdatable)
        'prints false
    Next fld

thanks in advance
__________________
da_bob
vb6 enterprise, sp3, nt

[AKA]

I dont use Access but I suggest :

Set rsTest = dbs.OpenRecordset("SELECT * FROM Test", dbOpenDynaset,,dbOptimistic )

Because I think that the default for lockedits are dbReadOnly.

thanks for your reply but it didn't work either

The OpenRecordset with dbOptimistic resulted in
runtime error 3001.
_________________