Compile error στο ADO data control

[geo1st487]

Εχω τον παρακατω κωδικα σε VB6 (το dcTblUpdates ειναι ADO data control). Οταν τρεχω την εφαρμογη εμφανιζει το μηνυμα Compile error: Procedure declaration does not match description of event or procedure having the same name και μαρκαρει το Private Sub dcTblUpdates_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)

Τι μπορει να φταιει;

Ευχαριστω

 

 

Private Sub dcTblUpdates_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)

MsgBox "SSS"

End Sub