Dim MyODBC As Workspace
Dim MyConn As Connection
Dim TestTable As Recordset
Dim Conn_Str As String 
  Conn_Str = "ODBC;DATABASE=твоя_база;UID=sa;PWD=;DSN=твой_dsn"
  Set MyODBC = CreateWorkspace("", "admin", "", dbUseODBC)
  Set MyConn = MyODBC.OpenConnection("", , , Conn_Str)
    Set TestTable = MyConn.OpenRecordset("твоя_таблица", dbOpenDynaset,  0 , dbPessimistic)
    With TestTable
       .AddNew
       ![твое_поле] = "новая запись"
       .Update
    End With
  TestTable.Close
  MyConn.Close
  MyODBC.Close

    Do Until TestTable.EOF
    TestTable.Edit
    TestTable![твое_поле] = твое_значение
    TestTable.Update
    TestTable.MoveNext
    Loop