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)
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)
处显示：“编译错误：用户定义类型未定义”，当我把这个事件删除，重新设定datPrimaryRS_MoveComplete时，并且设定的内容和原先的一样，则当时就好了，但退出再重新启动工程，运行该窗体时仍然出现“编译错误：用户定义类型未定义”的错误，我反复做了几次都是如此。请问，这到底是什么原因呢？