Scusa non capisco una cosa nella riga della select??
dateRecRS.Open "select * from Cassa where data='" & dat1 & dat2 &"'"
non è più corretto

Where data > '" & dat1 & "' And Data < '" & dat2 & "'
oppure usare il comando beetwen

Spero di non aver detto una c.....a

Ciao