Automazione word

Buongiorno a tutti, ho un foglio di word collegato ad una qry di access con tutti i campi collegati con i campi della qry.

Avrei bisogno che al click di un pulsante si aprisse questo file word...ho visto che se non ricollego tramite codice il file word alla qry da cui prendere i dati, si apre semplicemente quel file, senza avere attiva la stampa unione.

Ho provato il codice fornito direttamente da microsoft ma riscontro dei problemi.

Voi cosa consigliate?? Utilizzare i segnalibri??
Sinceramente nel mio caso non sarebbe la scelta migliore, perchè la qry mi permette anche di prendere i dati da più tabelle e non solo dalla form..dovrei trovare il modo di automatizzare il tutto

Il codice che uso è questo

    Dim Wrd As Word.Application, Doc As Word.Document
    Dim i As Integer
   
    On Error Resume Next 'gestione errori step by step
 
    Set Wrd = GetObject(, "Word.Application")

    If Err.Number = 429 Then ' se word era chiuso...
        Set Wrd = CreateObject("Word.Application")
    End If
    On Error GoTo 0 'ripristina la segnalazione degli errori

    Wrd.Visible = True
    Wrd.Activate
    Set Doc = Wrd.Documents.Open(DLookup("path_ric", "tbl_variabili"))
Dim mydb As Database
Set mydb = CurrentDb()
Dim percorso As String
percorso = mydb.name
      
   Wrd.ActiveDocument.MailMerge.OpenDataSource name:= _
        percorso _
        , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=percorso;Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=6;Je" _
        , SQLStatement:="SELECT * FROM `qry_antiriciclaggio`", SQLStatement1 _
        :="", SubType:=wdMergeSubTypeAccess
        Wrd.ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
        Wrd.ActiveDocument.Save
        
   With Wrd.ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
    Wrd.Windows("DOCUMENTAZIONE").Activate
       
   
   Wrd.ActiveDocument.Save
   Wrd.ActiveDocument.Close
   Wrd.Windows("Lettere tipo1").Activate
   Wrd.ActiveDocument.PrintPreview
   
    Set Doc = Nothing
    Set Wrd = Nothing

In rosso l'errore...che riporto con una immagine
https://dl-web.dropbox.com/get/Scree...rGSKE2ooG43waA

poi mi appare una msgbox che mi dice "Impossibile trovare il file "c:\users\cesare\documents.mdb""....non capisco dove prenda questo indirizzo visto che il "percorso" che io gli passo è "C:\Users\Cesare\Documents\Database1.accdb" ovviamente controllato con la finestra variabili locali.
https://dl-web.dropbox.com/get/Scree...0fycPaTfrHrUnA