"Dite che funziona ?"... basta provare
COmunque io la gestisco così (supponi che le tue date inizio e fine siano in due textbox chiamate, appunto, TxDataInizio e TxDataFine:
codice:
Dim StrSQL As String
StrSQL = "SELECT * FROM CASSA WHERE Data between'" & Format(TxDataInizio.Text, "yyyy-mm-dd") _
            & "' AND '" & Format(TxDataFine.Text, "yyyy-mm-dd") & "' ORDER BY DATA"
Ciauz

Chico