Visual Basic para Aplicaciones - urgente

Gracias :

señores nesecito de sus ayuda, mi problema es lo siguiente
nesecito listar un informe POR RANGO DE FECHA EL DICHO INFORME lo TENGO Crysta REPORT Y LLAMO ATRAVEZ DE VISULA 6.0 ,ENREALIDA ME A COSTADO MUCHO

ADEMÁS LES MUESTRO ALGO DE MI CODIGO PERO NO ME RESULTA.

rpt.ReportFileName = App.Path & "\inf_otc\Rpt_FECHA.rpt"

rpt.SelectionFormula = "{consulta1.Otc_Fecha_ini}>= '#" & MaskINI & "#' And {consulta1.Otc_Fecha_ini}<= '#" & MaskFIN & "#' "

rpt.Action = 1

ESTE CODIGO ME MUESTRA EL INFORME SOLO CON LA CAbecera pero sin datos,

agradecer de por sus ayuda
atte.
stello