Функция получения количества записей в запросе

Аргументы: strQuery - название сохраненного запроса или SQL запроса.
Назначение: Получить количество строк возвращаемое запросом или SQL выражением
Возвращает: Количество строк в запросе

Public Function QRCount(strQuery As String) As Long 
'Используется библиотека Microsoft DAO 
' проверьте наличие ссылки
Dim rst As DAO.Recordset  ' явно указываем тип рекордсета

Set rst = CurrentDb.OpenRecordset(strQuery) 
with rst
  if .recordcount <> 0 then ' проверяем наличие записей в рекордсете
       .MoveLast 
       QRCount = .RecordCount 
       .Close 
   else
        QRCount= 0
   end if
End with 
End Function