Problema de formula en VB 2010 con Crystal Reports

A la hora de generar mi reporte me envía un error errorkind aquí se espera una cadena

Private ImprimirReport As ReportDocument

formula = "{Caja_Recibo.unidad}=(""" & wuni & """) and {Caja_Recibo.fecha}=Date(""" & fecx & """)"

ImprimirReport.DataDefinition.RecordSelectionFormula = formula

Me.CrystalReportViewer1.SelectionFormula = formula

CrystalReportViewer1.ReportSource = ImprimirReport
Me.CrystalReportViewer1.RefreshReport()