关于ADODC的MoveComplete运行时报错的问题！请懂ADODC的高手都近来给看看！

Question

Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
' 程序
End Sub我定义后为什么运行时总是报：Compile error: Procedure declaration does not match description of event or procedure having the same name!
这是怎么回事啊？最郁闷的是，这个错误有的机器上报，有的就不报！请问高手我要怎么处理呢？难道把它注释掉？thx！

Answer 1

你是這樣定義的嗎
Dim WithEvents datPrimaryRS As ADODB.Recordset

Answer 2

數據庫是什麼數據庫。access or excel or SQL server ?
Excel就不好說了。