Crystal Report - Es urgente fechas

Hola yo estoy intentando realizar una formula con fechas pero no lo consigo alguien me puede ayudar probe con esto

fecha = CType(Me.desdefecha.Text, Date)
Format(fecha, "yyyy, mm, dd")
fecha_for = Format(CType(fecha, System.DateTime), "yyyy,MM,dd")
reporte.SetParameterValue("desde", fecha_for)
fecha = CType(Me.hastafecha.Text, Date)
Format(fecha, "yyyy, mm, dd")
fecha2_for = Format(CType(fecha, System.DateTime), "yyyy,MM,dd")
reporte.SetParameterValue("desde", Me.desdefecha.Text)
reporte.SetParameterValue("hasta", Me.hastafecha.Text)
reporte.SetParameterValue("codigo", Me.codigo.Text)
reporte.SetParameterValue("tipo", Me.cmbtipo.SelectedItem)
frmReporte.crystal.SelectionFormula = "{factura.fecha}>= date(" & fecha_for & ") and {factura.fecha}<= date(" & fecha2_for & ") and {factura.tipo_mercancia}='" & Me.cmbtipo.SelectedItem & "' and {factura.cod_fab}='" & Me.codigo.Text & "' "
frmReporte.Show()

pero no lo hace porque el formato en el que se encuentra factura.fecha es dd/mm/yyyy como lo puedo hacer es muy urgente.

Muchas gracias

Te muestro cómo lo hago yo, no se si es mejor o peor, pero anda:

Report1.SelectionFormula = "{tabla.fecha} >= DateValue(" + Str(desde) + ") and {tabla.fecha} <= DateValue(" + Str(hasta) + ")"

donde desde y hasta son variables de tipo single y les asigno la fecha, por ejemplo

desde = CDate(fecha_for)
hasta = CDate(fecha2_for)

espero q te sirva
saludos