Crystal Reports Selection Formula, SQL

How do I construct a SelectionFormula that uses a date in VB? I am using SQL Server 6.5.

My VB6 code looks like this:

Private Sub cmdPrint_Click()
Dim rptSql As String
Dim rptDate As Date

rptSql = "SELECT * FROM CheckRegister WHERE {CheckRegister.bank_statement_date}=Date('"
rptSql = rptSql & cboStatementDate.Text + "')"

CrystalReport1.SelectionFormula = rptSql
CrystalReport1.Action = 1
End Sub

I have tried many variations on this formula, such as using the string variable alone, in quotes, and using a date variable instead of a string variable, but nothing seems to work. I keep getting the error message "The remaining text does not appear to be part of the formula".

Does the date have to converted to a different format?
If any one has a solution, I would greatly appreciate it.

Excuse me if I am wrong, but doesn't you have to put the string in the -->CrystalReport.SqlQuery<---

or something like that.
This if You are using Crystalreports that came with VS.

[JMuller]

Parameters for function Date() in Crystal Reports are 3: year, month and day. You can use:

rptSql = "{CheckRegister.bank_statement_date}=" 
rptSql = rptSql & "Date(" & Year(cboStatementDate.Text) & ", " & Month(cboStatementDate.Text) & ", " & Day(cboStatementDate.Text) & ")"

Hope it works!

[Edited by JMuller on 09-15-2000 at 04:22 PM]