Private Sub testSQL()
Dim strSQL As String, txtDate1 As String, txtDate2 As String
txtDate1 = Format(Now() - 10, "mm/dd/yyyy")
txtDate2 = Format(Now(), "mm/dd/yyyy")
'strSQL = "SELECT * FROM cheques WHERE e_date between #" & Text1.Text & "# and #" & Text2.Text & "#;"
strSQL = "SELECT * FROM cheques WHERE e_date between #" & txtDate1 & "# and #" & txtDate2 & "#;"
Debug.Print strSQL
End Sub