ayuda con la opcion buscar

[ValentinoMolinari]

amigo lo que tienes que hacer es lo siguente.....
primero setea un Recordser
Set Record = New Ado.Recordset
luego haz la consulta
Strsql = "Select * From TabTrabajosRealizados Where CLiente LIKE '%" & TxtBuscar & "%'
Record.open strsql, cn 'Cn Es la coneccion con la base de datos
eso hacer en un private sub buscar
seria algo asi
Private Sub Buscar
Set Record = New Ado.Recordset
luego haz la consulta
Strsql = "Select * From TabTrabajosRealizados Where CLiente LIKE '%" & TxtBuscar & "%'
Record.open strsql, cn 'Cn Es la coneccion con la base de datos
set MSFlexGrid1.datasource = record
end sub
y ese procedimiento lo llamas en el evento change del txtbuscar

si no me entendiste preguntame tus dudas y veo de pasarte un ejemplo mas concreto
saludos