Estou precisando fazer um  text na medida que vou digitando no text vai filtrando no grid pra mim será quem alguém tem esta rotina que possa me ajudar?

Segue rotina :

Com o uso de um objeto TextBox. Essa busca consiste em
exibir automaticamente registros aproximados, somente
informando os primeiros caracteres, utiliza-se o operador
Like.


Private Sub TxtBusca_Change()
If Not Len(TxtBusca.Text) = 0 Then
Dim x As Integer, y As Integer, z As Integer
Dim parte As String
orsTabela.Open "SElect * from Fornecedores where NomedoCampo like `" & TxtBusca.Text & "%`", ocnbanco, adOpenKeyset, adLockOptimistic, adCmdText
x = Int(Len(TxtBusca.Text) - Len(parte))
y = Len(TxtBusca.Text) + 1
If Not orsTabela.BOF And Not orsTabela.EOF Then
orscomp.MoveMin
parte = Mid(orsTabela.Fields("NomedoCampo"), x)
orscomp.Close
TxtBusca.Text = TxtBusca.Text & parte
z = Len(TxtBusca.Text)
TxtBusca.SelStart = y
TxtBusca.SelLength = z
Else
orsTabela.Close
End If
End If
End Sub