RecStatus

Private Sub Form_Load()
Data1.Refresh
If Data1.Recordset.EOF And Data1.Recordset.BOF Then
MsgBox "No records.", vbInformation, "No records..."
Else
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
End If
End Sub

Private Sub Data1_Reposition()
Dim iCurrent As Integer
Dim iTotal As Integer
iCurrent = Data1.Recordset.AbsolutePosition + 1
iTotal = Data1.Recordset.RecordCount
lblStatus.Caption = iCurrent & " of " & iTotal
End Sub