Private Sub COMM1_Click() 
    Dim objWord As Word.Application 
    Dim Doc As Word.Document 
    Dim sDBPath As String 
    Set objWord = CreateObject("Word.Application") 
    objWord.Visible = False 'True
    Set Doc = objWord.Documents.Open(Application.CurrentProject. Path & "\WORD" & ".DOCX") 
    With Doc.MailMerge 
        .MainDocumentType = wdFormLetters 
        sDBPath = Application.CurrentProject.Path & "\DATA1" & ".XLS" 
        .OpenDataSource Name:=sDBPath, _ 
        SQLStatement:="SELECT * FROM `wordqur1$`" 
    End With 
    With Doc 
        .MailMerge.Destination = wdSendToNewDocument 
        .MailMerge.Execute Pause:=False 
    End With 
    Doc.Saved = True 
    objWord.Quit 
    Set Doc = Nothing 
    Set objWord = Nothing 
End Sub