Option Explicit

    Private AdoConnection   As ADODB.Connection
    Private WithEvents objRecSet As ADODB.Recordset

Private Sub CommandReadData_Click()
    objRecSet.MoveFirst
    MsgBox objRecSet.Fields("Телефон")
End Sub

Private Sub Form_Load()
    Dim ConnectionString As String
    Dim Baza As String
    Dim Table As String
    Dim kritBD As String
    Baza = "test.mdb"
    Table = "TestTable"
    kritBD = "Выполнено = 'нет'"
    Set AdoConnection = New ADODB.Connection 'CreateObject("ADODB.Connection")
    Set objRecSet = New ADODB.Recordset  'CreateObject("ADODB.Recordset")
    ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Baza & ";Mode=Share Deny None;Persist Security Info=False"
    AdoConnection.Open ConnectionString
    objRecSet.CursorType = adOpenStatic
    objRecSet.LockType = adLockOptimistic
    objRecSet.Open "SELECT * FROM " & Table & " WHERE " & kritBD, AdoConnection
End Sub

Private Sub Form_Unload(Cancel As Integer)
    objRecSet.Close
    AdoConnection.Close
End Sub
' Note how the object name, objRecSet, is incorporated into the event Sub name
Private Sub objRecSet_RecordChangeComplete(adReason As ADODB.EventReasonEnum, _
   cRecords As Long, _
   ByVal pError As ADODB.Error, _
   adStatus As ADODB.EventStatusEnum, _
   ByVal pRecordset As ADODB.Recordset)

' place any code you desire here, for example
If adStatus = adStatusErrorsOccurred Then
   Dim objError As ADODB.Error
   For Each objError In pRecordset.Errors
      Debug.Print vbTab; objError.Description
   Next
End If

End Sub

Private Sub objRecSet_RecordChangeComplete(ByVal adReason As ADODB.EventReasonEnum, _
   ByVal cRecords As Long, _
   ByVal pError As ADODB.Error, _
   adStatus As ADODB.EventStatusEnum, _
   ByVal pRecordset As ADODB.Recordset)
MsgBox "ok"
...

Private Sub Command1_Click()
    objRecSet.AddNew
    objRecSet.Update
End Sub