Buscar con flexgrid

[Avellaneda]

Hola, ahí va el ejemplo

Código:

Private Sub Text1_Change()
Dim rs As ADODB.Recordset
Set rs = New Recordset
With rs
    .ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\MiDB.mdb"
    .CursorType = adOpenStatic
    .CursorLocation = adUseClient
    .Open "Select * from LaTabla WHERE NombreCampo LIKE'" & Text1 & "%'"
End With
Set MSFlexGrid1.DataSource = rs
End Sub

Explicación:
Ante todo tienes que referenciar ADO
Cada vez que pulses una tecla en el TextBox(Text1) irá mostrando en el Grid los registros de la tabla cuyo campo empiece por los caracteres escritos.