Visual Basic - pasar parametro fecha/hora crystal

Alguien sabe como pasar un parametro fecha/hora desde visual basic 6.0 a crystal report? Sé que es un caso especial y he encontrado el codigo para hacerlo en .net, pero no consigo hacerlo con el visual.
A ver si alguien me puede ayudar
Gracias

Prueba con:
"DateTime(" & Year(fFecha) & "," & Month(fFecha) & "," & Day(fFecha) & ", 0, 0, 0)"

Los 3 ceros son la hora(hora, minutos y segundos)

Puedes ser mas explicito??
A continuacion te adjunto mi codigo:

Set report3 = crxapplication.OpenReport(App.Path & "\csv\" & "alarmas.rpt")
report3.ParameterFields.GetItemByName("param1").AddCurrentValue (CDate("9/20/1991 12:00:00 AM"))
CRViewer.ReportSource = report3
CRViewer.ViewReport

Cojo los datos para el reporte de un csv pero no creo que haya que poner nada raro por eso.
Gracias por tu ayuda

Perdona, lo que te he puesto es para pasar las fecha al recordSelectionFormula.

Para los parametros(trabajo con CR8) los paso como tu, lo unico que antes compruebo el tipo del parametro para hacer la conversion adecuada.
en el caso de las fechas hago:
Select Case crParamDef.ValueType
Case crBooleanField
crParamDef.AddCurrentValue CBool(msParametros(idx).Valor)
Case crDateField, crDateTimeField
crParamDef.AddCurrentValue CDate(msParametros(idx).Valor)
Case crStringField
crParamDef.AddCurrentValue msParametros(idx).Valor
Case Else
crParamDef.AddCurrentValue CLng(Val(msParametros(idx).Valor))
End Select

crParamDef es un Item de la coleccion ParameterFields( tu report3.ParameterFields) y msParametros(idx).valor es un String.

no se que mas decirte, de todas maneras que error te da y donde?