Function FnРекордсет(ByVal strTblName As String) As Boolean

    Dim strSql As String

    Dim rstData As DAO.Recordset

    strSql = "select * from " & strTblName & ";"

'    Dim rst As ADODB.Recordset

'    Set rst = New ADODB.Recordset

'    rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly

        ' открываем рекордсет

        Set rstData = CurrentDb.OpenRecordset(strSql)

    '    ' проверяем наличие записей

    If rstData.RecordCount = 0 Then

        rstData.Close

        MsgBox "Таблица " & NameTbl & " пустая!" _

        , 64, "Содержимое таблицы"

        '                Exit Sub

    Else

        ' число полей в запросе

        '''    intFields = 4

        ' определяем количество записей в рекордсете

        rstData.MoveLast ' перемещение в конец рекордсета

        rstData.MoveFirst ' перемещение в начало рекордсета

        eData = rstData.RecordCount ' количество записей в рекордсете

        intFields = rstData.Fields.Count ' количество столбцов

        ReDim arrTemp(intFields, eData) ' устанавливаем размер динамического массива

        ' первый параметр - число столбцов в массиве (полей в запросе)

        ' второй параметр - число строк в массиве (число записей в запросе)

        ' сброс данных из рекордсета в массив

        arrTemp = rstData.GetRows(eData)

'        Set rstData = Nothing

'        Erase arrTemp

    End If

    Set rst = Nothing

End Function