Software Para Tarifador

[willakuy]

Hola Estoy tratando de hacer un software para tarifador y necesito ayuda .
Bueno el problema esta en que tengo que hacer una busqueda en la base de datos utilizo este codigo para buscar:

Private Sub Text1_Change()
If Text1 <> "" Then
Adodc1.Recordset.Filter = "Serie like '" + Trim(Text1) + "*'"
Set DataGrid1.DataSource = Adodc1.Recordset
End If
Refresh
End Sub

El Problema es que cuando Hago una busqueda de una serie de telefono por ejemplo un celular movistar : 9001234 y en mi base solo tengo el : 90 con dos caracteres y cuando ingreso el tercer caracter el cual ya no existe en mi base de datos desaparece todos los registros y lo que necesito en que deberia quedarse ese registro con el: 90
Aqui pongo una foto de software modelo al cual quiero hacer:

[franko1809]

Oviamente se desacaparecen los demas registros del datagrid1 ya que estas utilizando filter tienes que usar find pero siempre te va a mostrar todos los registros del datagrid lo que hara sera seleccionar con el puntero del grid el registro

Private Sub Text1_Change()
If Text1 <> "" Then
Adodc1.Recordset.movefirst
Adodc1.Recordset.find "Serie like '" + Trim(Text1) + "*'"
Set DataGrid1.DataSource = Adodc1.Recordset
End If
Refresh
End Sub