應用程式精靈作出的程式(編號:5095)

q 我用應用程式精靈作出的程式,卻出現錯誤訊息:使用者自定型態尚未定義,有誰能幫忙解決?
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