Crystal Report - Enviar fecha para consulta de Crystal

Buenas

Necesito desde una aplicación en Visual Basic 6 capturar fecha inicial y fecha final, enviarselas a Crystal Report 11 y con estas fechas realizar una consulta filtrada en ese rango de fechas.

Quien me puede ayudar???

gracias

es sencillo chequeate este pagina el cual adjunto link, pero mas resumido te pego el codigo

Dim Primera As Date
Dim Ultima As Date

Primera = CDate(Fecha1.Text) ‘ se supone que en Fecha1.text y Fecha2.Text tengo fechas validas
Ultima = CDate(Fecha2.Text)
Dia1 = Day(Primera) ‘ Ahora descompongo la fecha en trocitos para que CR no se
Mes1 = Month(Primera) ‘ atragante
Agno1 = Year(Primera)
Dia2 = Day(Ultima)
Mes2 = Month(Ultima)
Agno2 = Year(Ultima)

CR1.SelectionFormula="{Ofertas.OferFechaPropuesta} in Date(" & Agno1 & "," & Mes1 & "," _
& Dia1 & ") to Date(" & Agno2 & "," & Mes2 & "," & Dia2 & ")"

CR1.Destination=1
CR1.Action=1

Espero haberte ayudado , tiene una duda pregunta nomas,

Juan Carlos