Public Function func_пол_массив_дан(имя_запроса As String) As Variant
Dim cmd As ADODB.Command
Dim rst As ADODB.Recordset
Dim prm As ADODB.Parameter
    Set cmd = New ADODB.Command
    Set cmd.ActiveConnection = CurrentProject.Connection
    cmd.CommandText = имя_запроса
    cmd.CommandType = adCmdTable
    For Each prm In cmd.Parameters
        prm.Value = Eval(prm.Name)
    Next prm
    Set rst = cmd.Execute
    If Not (rst.BOF And rst.EOF) Then
:       func_пол_массив_дан = rst.GetRows
    Else
:       func_пол_массив_дан =  1 
    End If
    rst.Close
    Set rst = Nothing
End Function