Hi

this error appeared when i used event procedure 4 ADODC1
-------------
Procedure declaration does not match description of event or procedure having same name
------------------------
the event procedure is
------------------------------
Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Adodc1.Caption = FormatNumber(Adodc1.Recordset.AbsolutePosition, 0) & _
"OF" & FormatNumber(Adodc1.Recordset.RecordCount, 0)
End Sub

thanks