Visual Basic - Filtrar datos... Urgente!

HOla que tal:
estoy necesitando ayuda con este codigo de buscar.
Cuando filtro los datos por Apellido, Nombre, Localidad funciona perfectamente.
Notengo ningun problema pero cuando quiero buscar por DNI me tira un error porq el tipo de dato del campo DNI es Número.
probe de varias formas y no me sale!!! Si alguien puede ayudarme,, estoy necesitando urgentemente!!

Rs es mi recordet
rs.open "Select * from Personas"

If RS Is Nothing Then
MsgBox " No se ha creado el recordset", vbCritical
Exit Sub
End If
' verifica que el recordset se encuentre abierto
If Not RS.State = adStateOpen Then
MsgBox " El recordset no se encuentra abierto", vbCritical
Exit Sub
End If

If Me.txtBuscar <> "" Then
Select Case op1()
Case 0
RS.Filter = "Apellido" & " LIKE '*" + Me.txtBuscar.Text + "*'"
Case 1
RS.Filter = "Nombre" & " LIKE '*" + Me.txtBuscar.Text + "*'"
Case 2
RS.Filter = "Localidad" & " LIKE '*" + Me.txtBuscar.Text + "*'"
case 3
RS.Filter = "DNI" & " LIKE '*" + Me.txtBuscar.Text + "*'"
Case Else
End Select
Else
RS.Filter = ""
Call CargarDataGrid(DataGrid1)
RS.MoveFirst
End If

Desde ya muchisimas gracias! Saludos...

sacale las comillas a la busqueda de dni osea

RS.Filter = "DNI" & " LIKE " + Me.txtBuscar.Text + ".
porque las comillas simples son para campos texto y vos decis que el campo dni es numerico

Hola Sandra

El motor ya te dijo cual es el error, el campo DNI es numerico y en campos numericos no funciona la instruccion LIKE, para poder hacerlo debes modificar el tipo de datos del campo DNI a texto para poder utilizar el LIKE.