VB Erreur Recordset

Bonjour,

Je travail sous access, et je souhaite avoir un code qui me permet d'ouvrir un fichier word avec des informations sélectionnées dans des formulaires, Pour ce la j'ai fait ce code.



'Déclaration des variables
Dim wApp As Object
Dim chemin As String
Dim Path As String
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim sql As String

'Execution de la requete et selection du rslt de la requete
sql = "SELECT Employe.Matricule, Nom, Prenom, N_PDA, Tel_PDA_PIN from Employe, PDA WHERE Employe.Matricule= Forms!PDA_MAtricule!Matricule AND N_PDA=Forms!PDA_Matricule!Texte17"
Set db = CurrentDb
Set rs = db.OpenRecordset(sql)
Set wApp = CreateObject("Word.Application")

'Initialisation du chemin
chemin = Application.CurrentProject.Path
Path = "" & chemin & "" + "/Recepisse.doc"
wApp.Visible = True

'Ouverture de word et initialisation des données
While Not rs.EOF
With wApp
.Documents.Open (Path)
.ActiveDocument.Bookmarks("Nom").Range.Text = rs.Fields("Nom")
.ActiveDocument.Bookmarks("Prenom").Range.Text = rs.Fields("Prénom")
.ActiveDocument.Bookmarks("Matricule").Range.Text = rs.Fields("Matricule")
.ActiveDocument.Bookmarks("N_PDA").Range.Text = rs.Fields("N_PDA")
.ActiveDocument.Bookmarks("Tel_GSM").Range.Text = rs.Fields("Tel_PDA_PIN")
.ActiveDocument.PrintOut
.ActiveDocument.Close (wdDoNotSaveChanges)
End With
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

Set wApp = Nothing
End Sub

Le probléme et quand j'execute le code un message d'erreur d'execution 3061 Trop peu de parametre. 2 attendu s'affiche sur la ligne souligné. Je ne comprends pas l'erreur et cela ne viens pas de ma requete car je l'ai executé et fonctionne bien, alors si vous pouviez m'aider ce serai sympa.
Merci