Private Sub Document_New()
    CommandBars("Mail merge").Visible = True

    Dim sPath As String
    CommandBars("Mail merge").Visible = True
    With ActiveDocument
        sPath = .Path & "\Tracking Data v.2.accdb"
        With .MailMerge
            .OpenDataSource _
                Name:=sPath, _
                ConfirmConversions:=False, _
                ReadOnly:=False, _
                LinkToSource:=True, _
                AddToRecentFiles:=False, _
                Revert:=False, _
                Format:=wdOpenFormatAuto, _
                Connection:= _
                    "Provider=Microsoft.ACE.OLEDB.12.0; " & _
                    "User ID=Admin;" & _
                    "Password='';" & _
                    "Data Source=" & sPath & ";" & _
                    "Mode=Read;", _
                SQLStatement:="SELECT * FROM `Farming_Table`", _
                SQLStatement1:="", _
                SubType:=wdMergeSubTypeAccess
            .ViewMailMergeFieldCodes = wdToggle
        End With
    End With
End Sub