Sales.Filter = "SDate='" & txtDate.Text & "'"

please correct the above command, VB give me this error message "Data type mismatch in criteria expresion"

thanks