ADODB.Recordset objRecSet_RecordChangeComplete ругается - VB

Формулировка задачи:

Реализовать БД безобидным способом.
Типа сказал себе "можем начать" и приступил для начала к голым тестам, то есть пытаться делать в тест проекте чего раньше не умел.
Ну т.е. взял тестовую БД test.mdb с таблицей TestTable
Хочу поиграться с отловом изменений в RecordSet (ну не таймером же ее долбать, как-то не солидно)
Прочитал вот это:
http://vbautomation.110mb.com/ACCESS/ADO/ADO_WillChangeRecord_%20RecordChangeComplete_Events.htm
Накатал пока вот это:

AdoConnection    ADODB.Connection
      objRecSet  ADODB.Recordset

  CommandReadData_Click()
    objRecSet.MoveFirst
    MsgBox objRecSet.Fields()

  Form_Load()
     ConnectionString  
     Baza  
     Table  
     kritBD  
    Baza = 
    Table = 
    kritBD = 
     AdoConnection =  ADODB.Connection 
     objRecSet =  ADODB.Recordset  
    ConnectionString =  & Baza & 
    AdoConnection. ConnectionString
    objRecSet.CursorType = adOpenStatic
    objRecSet.LockType = adLockOptimistic
    objRecSet.  & Table &  & kritBD, AdoConnection

  Form_Unload(Cancel  )
    objRecSet.
    AdoConnection.

  objRecSet_RecordChangeComplete(adReason  ADODB.EventReasonEnum, _
   cRecords  , _
    pError  ADODB., _
   adStatus  ADODB.EventStatusEnum, _
    pRecordset  ADODB.Recordset)

 adStatus = adStatusErrorsOccurred 
    objError  ADODB.
     objError  pRecordset.Errors
      Debug. vbTab; objError.Description

 

При запуске тыкает меня носом в строчку:
Private Sub objRecSet_RecordChangeComplete
и ругается:

Compile error:
Procedure declaration does not match description of events or procedure having the same name

Подключал msado25.tlb (но от версии 2.5;2.6;2.7 это не зависит)
Пока идей нету. Если дальше пойдет такими темпами, не видать мне прелестей БД как своих ушей.

Решение задачи: «ADODB.Recordset objRecSet_RecordChangeComplete ругается»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> Command1_Click()
    objRecSet.AddNew
    objRecSet.Update
<font color="blue">End</font> <font color="blue">Sub</font>
                        