Cita:
Iniciado por 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.
gracias avellaneda pero disculpa las molestias pero habra un modo de que esto se haga sin conexion ado por que no se nada acerca de las conexiones ado o si no es mucha molestia me podrias explicar que debo hacer?
gracias y saludos...
