Crystal Report - Ayuda con codigo urgente!!!!!

hola
tengo un form en visual que tiene un caja de texto donde puedo
selecionar una fecha y tengo un boton imprimir
y necesito que me imprima todos los registros de la tabla donde
aparezca la fecha seleccionada en visual

la tabla que tengo es asi:
tabla:planillas
tiene 5 campos
num planilla,patente,fecha,recorrido,nombre chofer

por ejemplo seleciono en visual la fecha 26-6-2005
y tengo dos registros con esa fecha,necesito que me imprima esos 2
registros
tengo este codigo, el problema es que me imprime siempre el ultimo registro que encuentra,nose si se puede hacer de otra manera mas simple o es que me falta algo en este codigo.
lo unico que puse en el reporte de crystal son formulas vacias y desde visual les doy el valor.
no se si me pueden mandar codigo mas simple para realizar esta tarea

Private Sub bt_imprimir_Click()
Dim Cad As String
Dim fecha As String
Dim Rec As Recordset

Call abrir_base
fecha = Format(dtp_fecha.Value, "dd/mm/yyyy")

Cad = "SELECT Planilla.N_planilla, Planilla.Patente, Planilla.Rec, Planilla.Nom_chofer, "
Cad = Cad + "Persona.Nombre, Persona.Apellido_P, Persona.Apellido_M FROM "
Cad = Cad + "Planilla, Vehiculo, Persona WHERE "
Cad = Cad + "Planilla.Patente = Vehiculo.Patente AND "
Cad = Cad + "Vehiculo.Rut_Socio = Persona.Rut AND "
Cad = Cad + "Planilla.Fecha = #" + fecha + "#"

Set Rec = DB.OpenRecordset(Cad, dbOpenSnapshot)
If Rec.EOF And Rec.BOF Then
MsgBox "No Existen Registros para Fecha Indicada", vbInformation
Exit Sub

Else
CrystalReport2.ReportFileName = "resumen planillas.rpt"
While Not Rec.EOF

plani = Rec!N_planilla
pat = Rec!patente
nom = Rec!nombre + " " + Rec!apellido_p + " " + Rec!apellido_m
nomch = Rec!nom_chofer
reco = Rec!Rec


CrystalReport2.Formulas(0) = "num_planilla = '" & plani & "'"
CrystalReport2.Formulas(1) = "patentes = '" & pat & "'"
CrystalReport2.Formulas(2) = "socio = '" & nom & "'"
CrystalReport2.Formulas(3) = "conductor = '" & nomch & "'"
CrystalReport2.Formulas(4) = "recorrido = '" & reco & "'"

Rec.MoveNext
Wend

CrystalReport2.Destination = crptToPrinter
CrystalReport2.Action = 1

End If
Call cerrar_base
End Sub