Sub CL3()
    Dim con As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim zapros As String
    Set con = New ADODB.Connection
    Set rst = New ADODB.Recordset
     
    con.Open "Provider='SQLOLEDB';Data Source='SQL'; Initial Catalog='Data';Integrated Security='SSPI'"
    Set rst.ActiveConnection = con

    zapros = "SELECT Name AS [Производитель] FROM Fabrik WHERE name LIKE '%Россия%'"
    
    rst.Open zapros, con, adOpenStatic, adLockOptimistic, adCmdText
    Cells( 1 ,  1 ) = "Производитель"
    Cells( 1 ,  2 ).CopyFromRecordset rst  ' вставить с первой строки
    
    ' здесь же можно анализировать rst

    rst.Close:  Set rst = Nothing
    con.Close:  Set con = Nothing

End Sub

        For i =  1  To rst.Fields.Count
            Cells( 1 , i) = rst.Fields(i -  1 ).Name
        Next