Automation Access Word publipostage

Bonjour,


J'ai un souci pour mon publipostage d'access vers word.
Le code actuel fonctionne en prenant toute ma table T_Clients et envoi vers word un publipostage de toutes les adresses.
Ce que je souhaiterais c'est qu'il ne prenne en charge que l'adresse de ma requête R_Clients.

Voici le code actuel :

' Effectuer un publipostage avec Word
Dim vApplicationWord As New Word.Application
Dim vLettreType As New Word.Document
vApplicationWord.Visible = True
'Lettre type
Set vLettreType = vApplicationWord.Documents.Open(CurrentProject.Path & "\Courrier\Lettre.docx")
'Préparation du publipostage

With vLettreType.MailMerge
.OpenDataSource Name:=CurrentProject.Path & "\Adresse.accdb", _
ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, Connection:="Table T_Clients", SQLStatement:="Table T_Clients"

.Destination = wdSendToNewDocument
.SuppressBlankLines = True
'Lancement du publipostage
.Execute
End With
'sauvegarde des lettres
vApplicationWord.ActiveDocument.SaveAs (CurrentProject.Path & "\Courrier\lettre1.docx")
vLettreType.Close (wdDoNotSaveChanges)
vApplicationWord.Visible = True

End Sub

Merci pour votre aide