ADOdc data Control Error

I have finish my program in VB and I use ADOdc Control with Acces Database and it was working but now when i start my program (source) it’s stop in this line
Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset

and it’s giving this error :
procedure declaration does not match description of event or procedure having the same name
so what is the problem and how cani fix this problem
thanks for your help