Dim Report As New CrystalReport36
Dim strselectionformula As String
Dim vReconDate As Date
Private Sub Form_Load()
vReconDate = CDate(Daily_Route_Recon.MaskEdBox1(0).Text)
Report.ReportTitle = Daily_Route_Recon.MaskEdBox1(0).Text
Report.DiscardSavedData
strselectionformula = " {DailyRouteReconciliation.RECONDATE} =#" & vReconDate & "#"
Report.RecordSelectionFormula = strselectionformula
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub

Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth

End Sub

this is the result.....

"BASIC SYSNTAX IS NOT SUPPORTED IN GROUP OR RECORD SELECTION FORMULA"

any suggestions ?

thnks
cyrus