salve a tutti

ho una datagrid in un form collegata a un database con questo codice:

Private Sub Form_Load()
ContImmis1.Attiva
Dim DatDb1 As Connection
Set DatDb1 = New Connection
DatDb1.CursorLocation = adUseClient
DatDb1.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=db1.mdb;Jet OLEDBatabase;"

Set RecRS = New Recordset
RecRS.Open "select Data,Causale,Darea,Importo,Cassa,Note from Cassa Order by IDCassa", DatDb1, adOpenStatic, adLockOptimistic

Set DataGrid1.DataSource = RecRS

ora dovrei fare una ricerca fra date con le due variabili

dat1 = "12/06/2001"
dat2 = "20/10/2002"

come posso effettuare questa ricerca?

ho provato con

Set RecRS = New Recordset
RecRS.Open "select * from Cassa where data='" & dat1 & dat2 &"'"
", DatDb1, adOpenStatic, adLockOptimistic

Set DataGrid1.DataSource = RecRS

by
gyonny