Function GetInfPSD2(sObj As String, sTitle As String) As Dictionary  
    Dim s As String
    Dim dic As New Dictionary
    Dim i As Integer
    s = "SELECT [" & sTitle & "] FROM [" & sHN & "$" & sDiap & "] WHERE [Проект/объект] Like '" & sObj & "'"
    Debug.Print "Запрос: " & s
    rs.MaxRecords = 50                                                                          
    rs.Open s, cADO, Options:=adCmdText                                                         
    If Not (rs.EOF Or rs.BOF) Then
        StrToDic2 rs.GetString, dic
    End If
    If rs.BOF Then
        Debug.Print "Записей больше чем " & rs.MaxRecords
        Debug.Print rs.GetString
    End If
    If rs.EOF Then
        Debug.Print "Записей нет!"
    End If
    rs.Close
    Set GetInfPSD = dic
End Function

SELECT [Ответственный специалист ПИР] FROM [Scene2$G6:CN12000] WHERE [Проект/объект] Like '%КНС-2%гутск%'

Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};ReadOnly=1;DBQ=C:\Art\МАКРОСЫ\ADO_DB\BD.xlsb;

SELECT [Ответственный специалист ПИР] 
FROM [Scene2$G6:CN12000] 
WHERE [Проект/объект] Like '*КНС-2*гутск*'

Запрос: SELECT [Ответственный специалист ПИР] FROM [Scene2$G6:CN12000] WHERE [P9:P12000] Like '*КНС-2*гутск*'
[Microsoft][Драйвер ODBC Excel] Слишком мало параметров. Требуется 1.

Запрос: SELECT [Ответственный специалист ПИР] FROM [Scene2$G6:CN12000] WHERE [P9] Like '*КНС-2*гутск*'
[Microsoft][Драйвер ODBC Excel] Слишком мало параметров. Требуется 1.

Запрос: SELECT [Ответственный специалист ПИР] FROM [Scene2$G6:CN12000] WHERE [P:P] Like '*КНС-2*гутск*'
[Microsoft][Драйвер ODBC Excel] Слишком мало параметров. Требуется 1.