Public Sub Run()
    ChangeDataSource "D:\1\Doc.doc", "D:\1\dbTest.mdb"
End Sub

Public Sub ChangeDataSource( _
  strDoc As String, _  
  strPath As String)
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    
    Set wdApp = New Word.Application
    Set wdDoc = wdApp.Documents.Open( _
      Filename:=strDoc)
    
    wdApp.Visible = True
    
    wdDoc.MailMerge.OpenDataSource _
      Name:=strPath, _
      Connection:="TABLE Taблица1", _
      LinkToSource:=True, _
      AddToRecentFiles:=False, _
      SQLStatement:="SELECT * FROM `Таблица1`"
    
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub

    wdDoc.MailMerge.OpenDataSource _
      Name:=strPath, _
      Connection:="TABLE Taблица1", _
      LinkToSource:=True, _
      AddToRecentFiles:=False, _
      SQLStatement:="SELECT * FROM `Таблица1`"