I am using the ADO Data Control but am not sure how to write a procedure to show the status of the current record in a recordset. I have previously done this with the standard Data Control using the Reposition event:

Private Sub Data1_Reposition()

Screen.MousePointer = vbDefault
On Error Resume Next

lblStatus.Caption = "Record " & Data1.Recordset.AbsolutePosition + 1 & " of " & Rcount

End Sub

How can I do this with the ADO Control ?