Búsqueda de DNI, Fechas y precios

[sielfi]

Hola. El programa que estoy haciendo tiene Clientes y Artículos. Las altas de clientes tienen datos obligatorios a llenar como DNI, fecha de ingreso. Y las altas de artículos tienen datos obligatorios a llenar como precio del artículo.

La búsqueda la hago con un datagrid enlazado a un ado1, utilizando FILTER. La búsqueda está asignada a un command button que es el botón Buscar, previo a escribir en un textbox lo que desea buscar. Pude validar, por ejemplo, Nombre de Artículo, y realiza la búsqueda. Pero la misma validación, no me sirvió para buscar DNI, Fecha_ingreso ni Precio de artículo. Seguro es porque son datos numéricos. Les muestro la validación que funciona bien con Nombre de Artículo:

Private Sub Command1_Click()
If Len(Trim(Text1)) >= 1 Then
Adodc1.Recordset.Filter = "Nombre_Artículo like ('*" & Text1 & "*')"
Text1 = ""
Text1.SetFocus
Else
Text1 = ""
MsgBox "Debe ingresar el nombre del artículo", vbExclamation, "Error"
Text1.SetFocus
End If
End Sub

Para los otros datos, si le pongo la misma validación, la depuración me marca el error en la parte roja que les puse. Por ejemplo:

Private Sub Command2_Click()
If Len(Trim(Text2)) >= 1 Then
Adodc1.Recordset.Filter = "Fecha_Ingreso like ('*" & Text2 & "*')" Text2 = ""
Text2.SetFocus
Else
Text2 = ""
MsgBox "Debe ingresar la fecha de ingreso", vbExclamation, "Error"
Text2.SetFocus
End If
End Sub

Por favor, también ayúdenme con la validación del DNI y de precio de artículo.

Muchísimas gracias!!