Here's my code: (dates are in mm/dd/yy format)

    Report.RecordSelectionFormula = "{ado.Date} = in '" & strDate1 & "' to
'" &
    strDate2

    CRViewer1.ReportSource = Report
    CRViewer1.ViewReport

Everything seems fine until the report loads and I get the following message
in a vbokonly box:

*A number, currency amount, boolean or string is expected here.*

Any suggestions?

Thanks in advance

Tyr this, I got it from another message in this news group titled: Help
Needed, Urgent!

If IsDate(sValue) Then
    CheckFieldType = "Date(" & Format$(DateValue(sValue),"yyyy")  & "," & _
    Format$(DateValue(sValue), "mm") & "," & _
    Format$(DateValue(sValue), "dd") & ")"
else
  .....