Crystal Report y Visual Basic 6

[ozelu]

Hola a todos, queria hacer una consulta ya que me esta volviendo loco Crystal Report 8 jaja. He utilizado este programa pocas veces y ahora estoy haciendo una aplicacion para un amigo y querria rellenar los datos de un informe segun la fecha que me diera el programa de visual basic. El codigo q tengo es el siguiente:

Dim rs As Recordset
Dim base As Database
Dim dia As Date
dia = Date
Set base = OpenDatabase("C:\Bares.mdb")
Set rs = base.OpenRecordset("Select * from Gastos")
reporte.ReportFileName = "c:\diaria.rpt"
reporte.DiscardSavedData = True
While Not rs.EOF
If rs!Fecha = dia Then
reporte.SelectionFormula = "{Gastos.Concepto}='" & rs!Concepto & "'"
rs.MoveNext
Else
rs.MoveNext
End If
Wend
reporte.Action = 1
reporte.ReportFileName = ""
Option1.Value = False
Frame2.Visible = False
End Sub

Me lo hace bien, pero solo me aparece el ultimo registro de la BD, es como si machacara la linea y se quedara en pantalla el ultimo registro siempre. Gracias de antemano.