Une erreur VB pour export Access-->Outlook

Bonjour à vous !

J'ai un problème concernant mon tout petit morceau de code VB...
En fait, je désire faire une liaison VB entre Access et Outlook pour faire des exportations de calendrier automatisée. Mon programme tourne mais n'exporte que le dernier enregistrement... Je sais pas pourquoi ! Pouvez vous m'aider ?

Private Sub Commande35_Click()
Dim myOlApp As Outlook.Application
Dim myItem As Outlook.AppointmentItem
Set myOlApp = CreateObject("outlook.application")
Set myItem = myOlApp.CreateItem(olAppointmentItem)
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb()
Set rst = db.OpenRecordset("Select * From [calendrier Requête] Where nom = '" & Me.nom & "' AND début BETWEEN '" & deb & "' AND '" & Fin & "';")

While Not rst.EOF
myItem.Subject = rst("Objet")
myItem.Body = rst("Description")
myItem.Start = rst("Début") & " " & rst("Début1")
myItem.End = rst("Fin") & " " & rst("Fin1")
myItem.Save
rst.MoveNext
Wend
rst.Close
Set rst = Nothing
Set db = Nothing
Set myOlApp = Nothing
Set myItem = Nothing
End Sub

En espérant que vous me répondiez assez vite, je vous en remercie autant !
A bientot ...
Le pb doit etre obligatoirement dans le While ... Wend