Software Para Tarifador

[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