我是个菜鸟希望你的帮助

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

Answer 1

Event MoveComplete(adReason As EventReasonEnum, pError As Error, adStatus As EventStatusEnum, pRecordset As Recordset)
    ADODB.Recordset 的成员

Answer 2

大家看一下这个网站上的几个源程序，我机子编译都有错误
http://www.sciencep.com
这个网站上的下载区下面有
《Visual Basic 项目案例导航》源代码
有结果后，请麻烦通知我一声！
[email protected]