VBA: aiuto con stampa unione

[antoniox]

Ciao.
Richiedo aiuto con il VBA e più precisamente per una stampa unione

La situazione
Ho un file in formato access nel quale esiste una tabella con diversi campi (ID (non contatore ma chiave primaria), campo1, campo2, etc) e un numero N di record.

Ho creato un documento word e, utilizzando le funzioni di stampa unione, ho "disposto" i collegamenti con la tabella di access.

Gli obiettivi
Per ciascun record (ovvero ID) della tabella access, vorrei creare una directory avente come nome l'ID;
all'interno di questa directory, creare un file unione (il cui nome è formato da ID e da una porzione di testo.

Cosa ho fatto e quali problemi incontro

Sub Macro1()

   Dim i As Long
   i = ActiveDocument.MailMerge.DataSource.RecordCount
   ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord
   
   Do While intCounter < i
    intCounter = intCounter + 1

    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
            .LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
        End With
        .Execute Pause:=False
  
    End With
   
    Dim sPath As String
    sPath = ThisDocument.Path
    
    Dim ID As String
    ID = ActiveDocument.MailMerge.DataSource.ActiveRecord
      
' si blocca alla riga seguente  
    MkDir sPath & "\" & ID

    ChangeFileOpenDirectory ThisDocument.Path & "\" & ID
    
    ActiveDocument.SaveAs ID & "AAAAAAA-01" & ".doc"
    
    ActiveWindow.Close
   
   ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
   
   
   Loop
   
End Sub

La prima directory viene creata ma, anzichè riportare come ID "1" (il valore 1 corrisponde al valore nel primo record della tabella access), riporta -1.
Viene creato il file e salvato (con lo stesso problema di ID).
Viene aperta la nuova finestra per la seconda riga della tabella access e si blocca perchè prova a creare una nuova directory con il medesimo nome della precedente.

Mi è chiaro dove è l'errore (non riesco ad associare ad ID i valori del campo ID della tabella access) ma non so come fare.

Grazie.