Hola
En el evento text_change del cuadro de texto crea un recordset con la condición que desees y luego pasasela al DataGrid, algo así como:
Código:
reg.open "Select * from tabla1 WHERE nombre like '%" trim(text1.text) "%'",bd,...
Set DataGrid1.DataSource= reg
DataGrid1.Refresh
--Saludos--