NumRecADO

Function GetTotalRecords(ByRef aRS As ADODB.Recordset) As Long
On Error Goto handelgettotalrec
Dim adoBookM As Variant 'Declare a variable to keep the current location
adoBookM = aRS.Bookmark 'Get the current location in the recordset
aRS.MoveLast 'Move to the last record in the recordset
GetTotalRecords = aRS.RecordCount 'Set the count value
aRS.Bookmark = adoBookM 'Return to the origanal record
Exit Function
handelgettotalrec:
GetTotalRecords = 0'If there's any errors return 0
Exit Function
End Function