[VB] Passer à l'enreg. suivant dans 1 data

Bonjour tous le monde !!

Voilà j'ai :

Data1.RecordSource = "SELECT * FROM Réservations where date = #" & Format(Text1.Text, "mm/dd/yy") & "#"
Data1.Refresh

J'aimerai bien traiter chaque ligne de mon Data1.RecordSource mais j'arrive pas à passer à la suivante, voici ce que j'ai mis :

While i < 4
MsgBox (Data1.Recordset.Fields("N°_Emplacement"))
i = i + 1
Wend

Merci d'avance à ceux qui répondront !!

Bonne journée !!