VB高手们，请帮我一把！！

我用VB作了一个小系统,但是在VB中一运行，就提示这句有问题，请问是什么原因呀？Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset以上的代码我是从另外的地方下载的。
随即弹出一个对话框：“过程声明与同名事件或过程的描述不匹配！”我真的是很急。