Результат запроса в нужную ячейку Excel - VB

Формулировка задачи:

Дано:
База, эксель
Задача:
В силу ряда причин Reporting Services не используем
Необходим кусок кода Макрос, который наглядно показывает, как подключиться к б/д и от туда вытащить данные в нужные ячейки Excel.
Так как в VB не рублю прошу привести работающий кусок кода Макроса
Т.е. конекшен стринг, куда логин пароль писать, куда вставлять запрос на SQL и куда вставит данные
Данный код был получен с помощью тупой записи действий в Excel для получения данных ив от что вышло. Остались вопросы где конекшен стринг, и где SQl код?

Sub Макрос1()
 Макрос1 Макрос

     ActiveSheet.ListObjects.(SourceType:=, Source:=Array( _
         _
        , _
         _
        , ), Destination:=Range()).QueryTable
        .CommandType = xlCmdTable
        .CommandText = Array()
        .RowNumbers = 
        .FillAdjacentFormulas = 
        .PreserveFormatting = 
        .RefreshOnFileOpen = 
        .BackgroundQuery = 
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = 
        .SaveData = 
        .AdjustColumnWidth = 
        .RefreshPeriod = 
        .PreserveColumnInfo = 
        .SourceConnectionFile = _
        
        .ListObject.DisplayName = 
        .Refresh BackgroundQuery:=
     
 Sub

Решение задачи: «Результат запроса в нужную ячейку Excel»

textual
                            Листинг программы 
                        
                            ADODB, конкретную библиотеку, которая понимает определение провайдера в строке подключения