vb：过程声明与同名事件或过程的描述不匹配

Question

我用数据窗体向导创建了一个窗体，创建完成后运行正常，但是将程序拷贝到另一台电脑上就出现了错误代码如下：
Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
'为这个 recordset 显示当前记录位置
datPrimaryRS.Caption = "Record: " & CStr(datPrimaryRS.Recordset.AbsolutePosition)
End Sub

错误提示是Private Sub datPrimaryRS_MoveComplete(ByVal adReason As
ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As
ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) 这句话过程声明与同名事件或过程的描述不匹配。

Answer 1

在属性窗口中把datPrimaryRS控件的Index属性设为空白追问

是空白的，但还是错误。

Answer 2

是你的电脑与那台电脑上的库文件版本新旧不同，一般来说是旧版与安装了补丁SP5.0或SP6.0导致，若是旧版本，“工程”->“引用”菜单，你能看到打钩的项"Microsoft ActiveX Data Objects 2.0 Libarbry"；若是后者补丁打了的情况，则应去掉这个钩，选上"Microsoft ActiveX Data Objects 2.6 Libarbry"即可正常运行程序。
依此原因，你看看打钩情况，做一下更改即能解决问题。本回答被提问者和网友采纳