Primero: donde es donde te genera el error al hacer la consulta?.
Segundo: Que es lo que dice el Error.
Tercero: Esta parte no la entiendo muy bien
Código:
Set reg = DbTBE2.OpenRecordset("ingresos", dbOpenDynaset)
Cuarto: coloca esta opción en la busqueda deve de funcionar
Código:
Set RStingreso = DbTBE2.OpenRecordset("SELECT * FROM ingresos WHERE Codigo = #" & text30.text & "# ORDER BY Fecha")