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!!
osi hay alguna otra forma mas facil de hacer.......

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...

Todo campo Númerico se ingresa Directamente, sin las Comillas Simples.