Sub test()
'Тест выходного значения запроса!
DoCmd.SetWarnings True
    Dim dbs As Database, rstList As Recordset, fldID As Field, fldName As Field
        Set dbs = CurrentDb ' Возвращает ссылку на текущую базу данных.
Dim txtSQL As String

    On Error Resume Next 'здесь просто предварительно очищаются таблицы и запросы в циклах теста
CurrentDb.Execute "Drop table test_ТарифФиксы"
CurrentDb.Execute "Drop table q_ТарифФиксы"
    On Error GoTo 0
    'создается простенькая таблица
CurrentDb.Execute "Create table test_ТарифФиксы (idclient int, Client string(72))"

'потом просто добавляем запись через рекордсет
Set rstList = dbs.OpenRecordset("test_ТарифФиксы")
'Set fldID = rstList.Fields!idclient
'Set fldName = rstList.Fields!client

'rstList.MoveFirst
    With rstList
        '.Edit
        .AddNew
        .Fields("idclient") = 0
        .Fields("client") = "Передача прайс-листов"
        .Update
        .Close
    End With

tbl_Name = "test_ТарифФиксы"
'дальше компоную текст для формирования запроса c условием на значение в поле client
txtSQL = "SELECT Count([" & tbl_Name & "].CLIENT) As [COUNT] FROM [" & tbl_Name & "] WHERE ((([" & tbl_Name & "].CLIENT) Like (" & """" & "Передача*" & """" & ")))"
        '--- это просто для вывода текста для проверки корректности. можно закомментарить
        Dim FileName
        Dim iFileNum As Integer
        iFileNum = FreeFile
        sFileName = "D:\1"
        'Will write file
        Open sFileName For Append As iFileNum
        Print #iFileNum, txtSQL
        Close iFileNum
        '----
        '!!! И вот зараза результат который по всем идеям должен быть равен 1, он почему-то сцуко ноль!  :-(((
        a = CurrentProject.Connection.Execute(txtSQL).Fields(0)

'проверяю дополнительно созданием сохр.процедуры
Set MyQuery = dbs.CreateQueryDef("q_ТарифФиксы", txtSQL)
'открываю ее и вижу блин 1
DoCmd.OpenQuery "q_ТарифФиксы", acViewNormal, acEdit

End Sub

 '--- это просто для вывода текста для проверки корректности в "D:\1". можно закомментарить
        Dim FileName
        Dim iFileNum As Integer
        iFileNum = FreeFile
        sFileName = "D:\1" ' (можно сменить букву диска, путь)
        'Will write file
        Open sFileName For Append As iFileNum
        Print #iFileNum, txtSQL
        Close iFileNum
        '----

a = CurrentProject.Connection.Execute(txtSQL).Fields(0)

a = dbs.OpenRecordset(txtSQL).Fields(0)