سلام، شايد اين كد جواب بده:
StrStr = StrStr & "Date  Between  [textbox1]  And  [textbox2]" & " AND