No se si será que al copiar se te ha ido el código pero esta parte:
Código vb:
Ver originalAdodc1.Recordset.Filter = "Fecha_Ingreso like ('*" & Text2 & "*')" Text2 = ""
tendría que estar en dos líneas:
Código vb:
Ver originalAdodc1.Recordset.Filter = "Fecha_Ingreso like ('*" & Text2 & "*')"
Text2 = ""