Слияние Word и Access

Private Sub Кнопка0_Click()
Dim wda As Word.Application
Dim rstNew As Recordset
Dim db As Database
Dim i As Integer
Set db = CurrentDb()
Set rstNew = db.OpenRecordset("АСР для печати1")
Do While Not rstNew.EOF
rstNew.AddNew
For i = 0 To rst.Fields.Count - 1
rstNew.Fields(i) = rst.Fields(i)
Next i
rstNew.Update
rst.MoveNext
Loop
' создаем объект Application Word
On Error GoTo err_StartWord
Set wda = GetObject(, "Word.Application")
wda.Visible = True
' открываем документ на основе шаблона - он добавляется в семейство Documents
wda.Documents.Add (CurrentProject.Path & "\формы\АСР для базы1.dotx")
' выполняем слияние основного документа и данных из источника
With wda.ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.Execute
End With
' печатаем приглашения wda.ActiveDocument.Printout
Do While wda.BackgroundPrintingStatus <> 0
DoEvents
Loop
' сохраняем получившийся документ
wda.ActiveDocument.SaveAs "C:\Doc\MailMergeDoc.doc"
' закрываем окно с новым документом
wda.ActiveWindow.Close False
' закрываем, не сохраняя, окно с первоначальным документом
wda.Documents(1).Close False
' если нет больше открытых документов, то закрываем Word
If wda.Documents.Count = 0 Then wda.Quit
' End If
Set wda = Nothing
Set rst = Nothing
Set rstNew = Nothing
Exit Sub
err_StartWord:
If Err = 429 Then ' Word не запущен
Set wdd = CreateObject("Word.Application")
Resume Next
Else
MsgBox Err.Description & " " & Err.Number, vblnformation
Exit Sub
End If
End Sub

Dim wda As Word.Application
Dim rstNew As dao.Recordset
Dim rst As dao.Recordset
Dim db As Database
Dim i As Integer, s1
Set db = CurrentDb()
''очистка рабочей таблицы
s1 = "delete * from [АСР для печати1] "
db.Execute s1
Set rst = db.OpenRecordset("select * from [АСР] where код=" & Me.Код)
 
Set rstNew = db.OpenRecordset("select * from [АСР для печати1]")
 
Do While Not rst.EOF
rstNew.AddNew
For i = 0 To rst.Fields.Count - 1
Debug.Print i;
rstNew.Fields(i) = rst.Fields(i)
Next i
rstNew.Update
rst.MoveNext
Loop