Bueno, como no especificaste que era en BD por eso te mande lo otro. XD
Agrega tus referencias, 1 datagrid y 1 textbox. Pega:
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider = SQLOLEDB.1.0; Data Source =(local); database=northwind; user id=sa; password=sa"
cn.Open
rs.CursorLocation = adUseClient
rs.Open "Select * from customers", cn, adOpenDynamic, adLockOptimistic
Set Me.DataGrid1.DataSource = rs
End Sub
Private Sub Text1_Change()
If Not Me.Text1.Text = Empty Then
rs.Filter = "CompanyName like '" & Me.Text1.Text & "*'"
End If
End Sub
Tambien funcionaria con una consulta SQL con el LIKE algo asi:
Private Sub Text1_Change()
rs.Close
rs.Open "Select * from customers where companyname like '" & Me.Text1.Text & "%'", cn, adOpenDynamic, adLockOptimistic
Set Me.DataGrid1.DataSource = rs
End Sub
Ya tu ve cual usas. Suerte!