Hola, 
Estoy realizando un sistema y soy nuevo en programacion necesito que alguien me ayude con este error
Error a date-time is required here
el codigo en visual es
    Screen.MousePointer = 11    
    MDISIE.objRPT.ReportFileName = "C:\SII\Report\Cuadre_Diario_Manuales.rpt"
    MDISIE.objRPT.DataFiles(0) = "C:\SII\BD\intu.mdb"
(txtfecha))
    MDISIE.objRPT.ReplaceSelectionFormula ("{Reg_Manuales.Fecha}=" & Trim(txtfecha.Text))
    MDISIE.objRPT.Destination = crptToWindow
    MDISIE.objRPT.Action = 1    
    Screen.MousePointer = 0
y en Crystal es
{Reg_Manuales.Fecha} =CurrentDate
Gracias.