为什么以前运行正常的程序，现在却出现"编译错误：过程声明与同名事件或过程的描述不匹配。"的错误提示？

按确定后，指向语句：
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset） Private Sub Adodc1_MoveComplete(B