ooooooo, lo que paso es que te lo hice al vuelo entonces pruebalo asi:
Código:
FILTRO = "SELECT * FROM ingresos WHERE Codigo = #" & Format(text30.text , "mm/dd/yyyy") & "# ORDER BY Fecha", Tuconexion, adOpenStatic, adLockOptimistic
Set RStingresos = DbTBE2.OpenRecordset(FILTRO, dbOpenDynaset)
Y el segundo es por si quieres hacer una busqueda por la fecha de tu sistemas, que es lo mismo que te estoy colocando solo cambia la linea Text30.Text por Date y es todo.
Espero que ahora si acertemos. a otra cosa que se me paso tienes que colocarlo en el boton donde vas hacer la busqueda