ADO Data Control - Record Number

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 ?

VB Code:

Private Sub SetRecordNumber()
 
    Dim intRecordCount As Integer
    Dim intCurrentRecord As Integer
 
    With ADODC1.Recordset
        intRecordCount = .RecordCount
        intCurrentRecord = .AbsolutePosition
        lblRecordNumber.Caption = "Record " & intCurrentRecord & _
                                     " of " & intRecordCount
 
     End With
                                     
End Sub
 
Private sub Command1_Click()
 
   SetRecordNumber
End Sub

Sorry, that won't work. Your varibles are local.

U can use:

VB Code:

Private Function GetRecordNumber() As String
    With ADODC1.Recordset
        GetRecordNumber = "Record: " & .AbsolutePosition & " of " & .RecordCount
    End With
End Sub
 
Private Sub Command1_Click()
    MsgBox GetRecordNumber, vbInformation, "Current Record"
End Sub

Does this work?