Bueno bueno, Tienes que tener estas referencias.
Dim DbTBE2 As DAO.Database
Dim RStingreso As DAO.Recordset
Tienes que abri tu Base de datos Asi
Código:
Set DbTBE2 = OpenDatabase(App.Path & "\TuBD.mdb", True, False, ";pwd=" & "TuPassword")
y ahora si hacer la consulta de esta forma:
Código:
Set RStingreso = DbTBE2.OpenRecordset("SELECT * FROM ingresos WHERE Codigo = #" & text30.text & "# ORDER BY Fecha")
Espero que ahora si te funcione, SI no sube el codigo para ayudarte.