Buscar mientras escribo en un text

[ValentinoMolinari]

Hola como estas??, te sugiero una forma muy sencilla de resolver tu problema pero debo advertirte que te funcionará solo de acuerdo como tienes configurado tu visual:
debes declarar una variable tipo Recorset a la cual llamaremos Rs
luego debes hacer lo siguiente

private sub BuscoContactos()
Set Rs = New AdoDB.Recorset

CadenaSql = "Select * From Contactos Where '%" & me.txtbuscar & "%'
Rs.Open CadenaSql,"Aqui le Pasas la coneccion con la base de datos"


Antes que nada debes Utilizar el DataGrid o el MSHFlexGrid (si no lo tienes lo pùedes agregar en Componentes)

luego lo único que te queda es hacer lo siguente


Set Me.DataGrid1.DataSource = Rs

End Sub
y en el Evento Change del txt que vas a usar para buscar escribes el nombre del sub

Private sub TxtBuscar_Change
BuscoContactos
End Sub



si te da error Busca en las Referencias Microsoft Axtive X DataObjects 2.1 o 2.6 Agregala y funciona Seguro, Cualquier Duda me lo preguntas y te lo detallo mejor
Saludos