The code below is from a hobby project. I have written the project using a data environment. While this has simplified the project, I am unable to figure out how to get WITHEVENTS working with this object.

What is the secret to subclassing(?) a data env so that I can latch onto the WITHEVENTS events?

private Sub rst_students_MoveComplete(byval adReason as ADODB.EventReasonEnum, byval pError as ADODB.error, adStatus as ADODB.EventStatusEnum, byval pRecordset as ADODB.Recordset)
' This will display the current record position for this recordset
lblStatus.Caption = "Record: " & CStr(rsT_Students.AbsolutePosition)

End Sub

Thanks.

-----------
Braden Pintar