Cita: Private Sub Command1_Click()
Data1.RecordSource = "select * from ingresos where fecha between " & Val(Text1) & " And " & Val(Text2) & ""
Data1.Refresh
End Sub
Las operaciones con fecha en access se tienen que cerrar con el caracter #, y tienen el formato dd/mm/yyyy. Yo lo pondría asi:
Private Sub Command1_Click()
Data1.RecordSource = "select * from ingresos where fecha between #" & format (Text1,"mm/dd/yyyy") & "# And #" format(Text2,"dd/mm/yyyy") & "#"
Data1.Refresh
End Sub