Voce pode utilizar os controles:
textbox (text1)
flexgrid (adicione no projeto = projetc - components - microsoft flexgrid control 6.0)
data control (data1)
e utilize o seguinte código:
Private Sub text1_Change()
Dim sql As String
Dim criterio As String
criterio = Chr$(39) & txt_consulta.Text & "*" & Chr$(39)
sql = "SELECT * FROM clientes WHERE nome LIKE " & criterio
Data1.RecordSource = sql
Data1.Refresh
End Sub
Quando vc digitar alguma letra ou trecho de nome no textbox, o flexgrid
irá mostrar somente os registros que atendem a consulta realizada...
Não se esqueça de ajustar as propriedades do flexgrid:
cols - (numero de colunas = numero de campos de sua tabela)
data source - o data control utilizado - ex. data1
Vc pode utilizar dblist, dbgrid, etc... mas o flexgrid tem mais opções!
Abraços...
