Check if a RecordSet has Data
Before you can query for a recordset, you need to make sure it has data in it. Public Function EmptyRS(ByRef adoRS As ADODB.Recordset) As Boolean ‘Checks for an EMPTY RecordSet On Error GoTo ErrHandler EmptyRS = True If Not adoRS Is Nothing Then EmptyRS = ((adoRS.BOF = True) And (adoRS.EOF = True)) End IfExit FunctionErrHandler: EmptyRS = TrueEnd Function