Visual Basic - reporte por rango de fecha

Hola, necesito de sus ayuda.
mi problema es lo siguiente:
nesecito ejecutar un reporte que esta en CR. atravez de VB, el reporte se debe listar los datos atravez de un rango de fecha.
tambien les envio como tengo mi formula.

rpt.SelectionFormula = "dateVar range {Consulta1.Otc_Fecha_ini} := to '" & MaskINI.Text & "' and {Consulta1.Otc_Fecha_ini}:=to '" & MaskFIN.Text & "';"

Agradecere por sus ayuda.
Atte.
stello

Mira yo tengo 2 maskedbox y em funciona bien este reporte:

fecha1 = msk1.Text
fecha2 = msk2.Text
If IsDate(fecha1) And IsDate(fecha2) Then
fecha1a = (Format(fecha1, "YYYY,MM,DD"))
fecha2a = (Format(fecha2, "yyyy,mm,dd"))

Screen.MousePointer = vbHourglass
Aux = App.Path & "\report\progen.rpt"
If Dir(Aux) <> "" Then
CrystalReport1.ReportFileName = Aux
CrystalReport1.SelectionFormula = "{qryproved1.fmov}>= date (" & fecha1a & ")and {qryproved1.fmov}<= date (" & fecha2a & ")"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.Action = 1
Screen.MousePointer = vbDefault

Espero a verte podido ayudar.