Dim rst As New ADODB.Recordset
rst.Open "select Codigo as [Cod],nome as [Nome],produto as [Produto], Tabela WHERE nome LIKE('" & text1.text & "%') order by nome", conexao, adOpenKeyset, adLockPessimistic
datagrid.ColWidth(0) = 100
datagrid.ColWidth(1) = 400
datagrid.ColWidth(2) = 1500
datagrid.ColWidth(3) = 3150
Set datagrid.DataSource = rst
rst.Close
nesta instrução estou usando ADO e SQL, e cada letra que vc digitar na text, por exemplo se vc digitar A, ele vai trazer tudo que inicie com A, e se vc digitar ar, tudo que inicie com ar, e assim por diante...
espero ter ajudado
um abraço