Что не так с кодом?

[Afferist]

Добрый день! Сам я ни разу не програмист, поэтому вопрос к знатокам, что нужно поправить в коде, чтоб заработало? код найдан на просторах тырнета

Private Sub Кнопка2_Click()
'Объявляем переменные
Dim XL As Object
Dim XLT As Object
Dim newrow As Object
Dim rsd As ADODB.Recordset
Dim strSQL As String
Set rsd = New ADODB.Recordset


'Запрос к базе данных
strSQL = "SELECT Скан.Скан, [Копия Серийник-инвентарник].[Серийный номер], Max([Копия Серийник-инвентарник].Партия) AS [Max-Партия], 
Max([Копия Серийник-инвентарник].Ярлык) AS [Max-Ярлык], Max([Копия Серийник-инвентарник].[Код актива]) AS [Max-Код актива], Max([Копия
 Серийник-инвентарник].Количество) AS [Max-Количество], Max([Копия Серийник-инвентарник].[Код позиции]) AS [Код НФС], 
Max(Номенклатура.Описание_позиции) AS [Max-Описание_позиции], Max([Копия Серийник-инвентарник].[Описание актива]) AS [Max-Описание 
актива], Max([Копия Серийник-инвентарник].[Расположение 5 опис]) AS [Max-Расположение 5 опис], Max([Копия Серийник-инвентарник].[Код 
Производителя]) AS [Max-Код Производителя]FROM Скан LEFT JOIN ([Копия Серийник-инвентарник] LEFT JOIN Номенклатура ON [Копия Серийник-
инвентарник].[Код позиции] = Номенклатура.Код_НФС) ON Скан.Скан = [Копия Серийник-инвентарник].Скан GROUP BY Скан.Скан, [Копия Серийник-
инвентарник].[Серийный номер]; from dbo.table where kod = "



'Создаем необходимые объекты
Set XL = CreateObject("Excel.Application")
'для примера показываю, как можно сразу загружать шаблон без выбора
Set XLT = XL.Workbooks.Open("C:\Users\DShevchenko\AppData\Roaming\Microsoft\Шаблоны\Шаблон_Акт_Возврата.xltm")
'1 способ если источнике данных всего одна строка
With XLT.Worksheets("Лист1")
              .[a16] = rsd.Fields("Отсканированно ")
              .[b1] = rsd.Fields("field2")
              .[c1] = rsd.Fields("field3")
              .[d1] = rsd.Fields("field4")
            End With
'2 способ если строк в источнике несколько
'причем мы учтем то, что у нас есть шапка и примечание в Excel
'и мы не знаем, сколько строк у нас вставиться
'и поэтому строки будем добавлять в случае необходимости
'зададим, с какой строки будем начинать вставлять данные
Rows = 16
'для нумерации

'запускаем цикл до тех пор, пока не закончатся строки в нашем источнике
While Not (rsd.EOF)
    'смотрим, если строк больше чем мы задали в шаблоне
     If Rows >= 2 Then
     'то добавляем строку
         XLT.Worksheets("Лист1").Rows(Rows).Insert
     'Запомним нашу строку
         Set newrow = XLT.Worksheets("Лист1").Rows(Rows)
     'и вставим туда копию предыдущей строки
     'для того если вдруг у вас там есть объединенные ячейки или какие-то нужные данные
     'так как новая строка создастся без всяких объединений и значений
         XLT.Worksheets("Лист1").Rows(Rows - 1).Copy newrow
     'это просто для примера как можно очистить некий диапазон внутри документа
         'XLT.Worksheets("Лист1").Range("A10:F10").ClearContents
         'динамически формируем адрес нужной ячейки
     Cells = "a" & Rows
     'и задаем ей значение
         XLT.Worksheets("Лист1").Range (Cells)
         Cells = "b" & Rows
         XLT.Worksheets("Лист1").Range(Cells) = rsd.Fields("field5").Value
         'переходим на следующую строку
     Rows = Rows + 1
     'переходим на следующую строку в источнике данных
         rsd.MoveNext
     Else
     'а это выполняется до тех пор, пока не закончатся заданные строки в шаблоне
     'т.е. если строк в источнике всего 1 то в код, который выше мы даже не попадем
         Cells = "a" & Rows
         XLT.Worksheets("Лист1").Range (Cells)
         Cells = "b" & Rows
         XLT.Worksheets("Лист1").Range(Cells) = rsd.Fields("field5").Value
         Rows = Rows + 1
         rsd.MoveNext
     End If
    'для нумерации
         
'конец цикла
Wend
'это просто пример как можно удалить строку целиком
'XLT.Worksheets("Лист1").Rows(20).Delete
'делаем Excel видимым
XL.Visible = True
'Очищаем переменные
Set XL = Nothing
Set XLT = Nothing
Set newrow = Nothing
End Sub

[Stilet]

что нужно поправить в коде, чтоб заработало?

Наверное нужно поправить ошибку )

[Afferist]

В данный момент выделяет строку

.[a16] = rsd.Fields("Отсканированно ")

[Afferist]

как прописать какое поле запроса в аксесе равно ячейке А16 в екселе