Проверка на пустой запрос!

Function NumRec(qname As String) As Long
    Dim rs As New ADODB.Recordset
    rs.Open "SELECT Count(*) AS n FROM " & qname & ";", CurrentProject.Connection, adOpenDynamic, adLockReadOnly
    NumRec = rs!n
    rs.Close
End Function