help: crystal report avec codition

salut tout le monde,

voila, je veux imprimer la liste des voitures qui ont le vidange moin que 50, avec ce code je n'ai que le premier enregistrement de ma condition, quelqu'un peut m'aider a completé mon code pour qu'il m'imprime toutes les voitures (avec vidange<50) (et n'on pas seulement le 1er enregistrement).

Set REC = New ADODB.Recordset
REC.Open "Select * From voiture Where Vidange< 50", Db

cr.ReportFileName = App.Path & "\lstVidange.rpt"
cr.SelectionFormula = "{voiture.vidange}=" & REC("Vidange")
cr.Formulas(0) = "cv='" & REC("codev") & "'"
cr.Formulas(1) = "vidange='" & REC("vidange") & "'"
cr.Formulas(2) = "mq='" & REC("marque") & "'"
cr.Formulas(3) = "matricule='" & REC("NI") & "'"
cr.WindowState = 2
cr.Action = 1

merci d'avance