Visual Basic - Ayuda con seleccionar fechas

Alguien me puede ayudar???
tengo un programa que tiene que hacer un reporte de unos recibo de deposito y necesito que selccione todos los recibos de entre dos fechas esto es todo el codigo que tengo

Private Sub Form_Load()
Data2.RecordSource = "select sum(total) as tot from depositos"
Data1.RecordSource = "select Fecha, EXP, juzgado, referencia, procesado, total from depositos order by fecha"
Data1.Refresh ´data1 muestra los datosen forma de tabla
Data2.Refresh ´data2 mustra un total de la suma de los recibos
End Sub

Private Sub Command1_Click() 'Este boton necesito que funcione
Dim a As Date, b As Date
a = Text1.Text 'aqui se agrega la fecha de inicio
b = Text2.Text 'aqui se agrega la fecha final
Data2.RecordSource = "select sum(totalcontado) as tot from depositos WHERE fecha > a AND Fecha < b"
Data1.RecordSource = "select Fecha, EXP, juzgado, referencia, procesado, total from depositos WHERE fecha > a AND Fecha < b "
Data1.Refresh
Data2.Refresh
End Sub

Me pueden ayudar que necesito hacen en el command1 para que funcione un selectod de fechas

pero... cual es el problema?

no funca, no muestra nada, te manda un eroor?

ay que organisarse!!