'редактирование записи
            adoConn.Execute ("UPDATE table SET " & SQLString & " WHERE field LIKE '%" & somevalue & "%'")

t = Now
Execute
debug.print DateDiff("s",Now,t)

            adoConn.Execute ("UPDATE table SET " & SQLString & " WHERE ...
            'создание файла обмена данными (пока файл)
            Text.Add "string_to_change;" & str
            Text.SaveText AppDirectory & "log\name.ext"

( 1 ) adoConn.Execute ("INSERT INTO table...
bla-bla-bla
( 2 ) RS=adoConn.Execute (SELECT * FROM table WHERE та строчка что добавлена в ( 1 )
IF RS.EOF=false
   adoConn.Execute (UPDATE table SET... WHERE та строчка что добавлена в ( 1 )

 26 . 01 . 2011   0 : 56 : 13 	 0 	(Execute1)
 26 . 01 . 2011   0 : 56 : 13 	 0 	(Execute1)
 26 . 01 . 2011   0 : 56 : 13 	 0 	(Execute2)
 26 . 01 . 2011   0 : 56 : 13 	 0 	(Execute2)
 26 . 01 . 2011   0 : 56 : 14 	 0 	(Execute3- 1 )
 26 . 01 . 2011   0 : 56 : 14 	 0 	(Execute3- 1 )
 26 . 01 . 2011   0 : 56 : 14 	 0 	(Execute3- 2 )
 26 . 01 . 2011   0 : 56 : 14 	 0 	(Execute3- 2 )
 26 . 01 . 2011   0 : 56 : 34 	 0 	(Execute4- 1 )
 26 . 01 . 2011   0 : 56 : 34 	 2 	(Execute4- 1 )
 26 . 01 . 2011   0 : 56 : 34 	 0 	(Execute4- 2 )
 26 . 01 . 2011   0 : 56 : 34 	 1 	(Execute4- 2 )
 26 . 01 . 2011   0 : 57 : 07 	 0 	(Execute4- 1 )
 26 . 01 . 2011   0 : 57 : 07 	 3 	(Execute4- 1 )
 26 . 01 . 2011   0 : 57 : 07 	 0 	(Execute4- 2 )
 26 . 01 . 2011   0 : 57 : 07 	 2 	(Execute4- 2 )
 26 . 01 . 2011   0 : 57 : 12 	 0 	(Execute5- 1 )
 26 . 01 . 2011   0 : 57 : 12 	 0 	(Execute5- 1 )
 26 . 01 . 2011   0 : 57 : 12 	 0 	(Execute5- 2 )
 26 . 01 . 2011   0 : 57 : 12 	 0 	(Execute5- 2 )
 26 . 01 . 2011   0 : 57 : 12 	 0 	(Execute6- 1 )
 26 . 01 . 2011   0 : 57 : 12 	 0 	(Execute6- 1 )

( 1 ) adoConn.Execute ("INSERT INTO table...
bla-bla-bla
( 2 ) RS=adoConn.Execute (SELECT * FROM table WHERE та строчка что добавлена в ( 1 )
IF RS.EOF=false
   adoConn.Execute (UPDATE table SET... WHERE та строчка что добавлена в ( 1 )

Public my_JRO As New JRO.JetEngine
...
        my_JRO.RefreshCache adoConn

Microsoft ActiveX Data Objects  2 . 6  Library (msado26.dll)
Microsoft Jet and Replication Objects  2 . 6  Library (msjro.dll)

Имя поля = ID
Тип данных = счетчик
Размер поля = длинное целое
Новые значения = последовательные
Индексированное поле = да (совпадения не допускаются)

     Dim lng_ID As Long
...
       my_JRO.RefreshCache adoConn
       Set RS = adoConn.Execute _
          ("SELECT TOP 1 * FROM Table WHERE field='value' ORDER BY ID DESC")
...
        If RS.EOF = False Then 'только если запись существует (по структуре базы она единственная)
...
            lng_ID = RS!ID
...
            adoConn.BeginTrans
            adoConn.Execute ("UPDATE table SET " & SQLString & " WHERE ID=" & CStr(lng_ID))
            adoConn.CommitTrans

        my_JRO.RefreshCache adoConn
        Set RS = adoConn.Execute _
          ("SELECT TOP 1 * FROM table WHERE field LIKE '%" & StrValue & "%' ORDER BY ID DESC")

            adoConn.BeginTrans
            adoConn.Execute ("UPDATE table SET " & SQLString & " WHERE field='value'")
            adoConn.CommitTrans

Public my_JRO As New JRO.JetEngine
Public adoConn As ADODB.Connection
Public objRecSetOut As ADODB.Recordset
Public objRecSetIn As ADODB.Recordset

Public Sub DataBaseConnect()
     'пока просто ничего не создаем, если БД отсутствует
    If Len(Dir(App.Path & "\log\baza.mdb")) =  0  Then
        MsgBox "By-by..."
        Exit Sub
    End If
    Set adoConn = New ADODB.Connection
    adoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
      App.Path & "\log\baza.mdb;Mode=Share Deny None;Persist Security Info=False"
End Sub
...'при обращении к рекордсету
        Set objRecSetIn = New ADODB.Recordset
        ...
        objRecSetIn.Close
        Set objRecSetIn = Nothing

'ну или
        set RS=adoConn.Execute
       ...
        RS.Close
        Set RS = Nothing

Public my_JRO As New JRO.JetEngine
Public adoConn As New ADODB.Connection

Public my_JRO As JRO.JetEngine
Public adoConn As ADODB.Connection
...
Public Sub DataBaseConnect()
    Set my_JRO = New JRO.JetEngine
    Set adoConn = New ADODB.Connection
...
End Sub
ну и т.п.

Public my_JRO 'As JRO.JetEngine
Public adoConn 'As ADODB.Connection
...
Public Sub DataBaseConnect()
    on error goto byby
    Set my_JRO = CreateObject("JRO.JetEngine")
    Set adoConn = CreateObject("ADODB.Recordset")
...
   exit sub
byby:
   MsgBox "By-by...Where is ADO итд.?"
   'типа End любым корректным способом

Microsoft ActiveX Data Objects  2 . 8  Library (msado15.dll)
Microsoft ActiveX Data Objects Recordsets  2 . 8  Library (msador15.dll)

Microsoft Jet and Replication Objects  2 . 6  Library (msjro.dll)

Microsoft ActiveX Data Objects  2 . 6  Library (msado26.dll)
   Set adoConn = New ADODB.Connection

     Set adoConn = CreateObject("ADODB.Recordset")

Reference=*\G{00000200-0000-0010-8000-00AA006D2EA4}#2.0#0#C:\Program Files\Common
Files\system\ado\msado20.tlb#Microsoft ActiveX Data Objects 2.0 Library

Set adoConn = CreateObject("ADODB.Connection")

Microsoft ActiveX Data Objects  2 . 6  Library (msado26.dll)
Microsoft Jet and Replication Objects  2 . 6  Library (msjro.dll) 

("SELECT TOP 1 * FROM Table WHERE field='value' ORDER BY ID DESC")

SELECT TOP  1  ID FROM Table...  
SELECT TOP  1  ID,AnotherField FROM Table...

my_JRO.RefreshCache adoConn