Visual Basic - buscar caracter por caracter

hola a todos los usuarios de este foro tengo un pequeño problema con un sistema que stoy diseñando con vb !!!estoy utilizando un dbgrid y un data para enlazar la base de datos al formulario.....deseo hacer un busqueda caracter por caracter es decir si yo meto en una caja de texto una letra me despliegue todos lo registro que empiecen con esa letra y al introducir otra letra me deje ver solo los registros que comiencen con esas dos letras !!!!la verdad seria de gran ayuda pues me falta ese detalle y la verdad si alguien me puede ayudar se lo agradeceria de antemano muchas gracias!!!!!!! algun codigo o manual donde lo pueda checar !!! muchas gracias.......

Pos creo que lo que tu quieres tienes que hacerlo con una nueva consulta en la data, cargando los datos que tu quieres mediante un SELECT.

'Yo hago una consulta como la que tu buscas, yo uso en datagrid,
tengo una caja de texto llamada Diag, que es donde el usuario va
'digitando las letras y el código lo pongo en el evento KeyUp de dicha caja
'que sería así

Private Sub Diag_KeyUp(KeyCode As Integer, Shift As Integer)
If Diag.Text <> "" And KeyAscii <> 8 Then
Grid1.Visible = True
Dim res1 As New ADODB.Recordset
res1.CursorLocation = adUseClient
res1.CacheSize = 256
If res1.State = 1 Then res1.Close
res1.Open "select CAMPOS_DE_LA_TABLA from TABLA where CAMPO_descripcion LIKE '" & Diag.Text & "%'", CE
If Not res1.EOF = True Then
res1.MoveFirst
Set Grid1.DataSource = res1
Else
Grid1.Visible = False
End If
Else
Grid1.Visible = False
End If
End Sub

'Yo la conexión a la base de datos la hago por medio de código
CE es el nombre de la conexión

SALU2, Y SUERTE

Hola Luis:

Acá te paso el codigo para que soluciones tu inconveniente:

' Acá definis las variables globales
Dim tabla As Recordset
Dim base As Database
Dim consulta As QueryDef

' esto lo pones dentro del textbox

Private Sub Text1_KeyPress(KeyAscii As Integer)
Set base = OpenDatabase("Base.mdb")
Dim param As String
param = "parameters [buscar] string;"
Set consulta = base.CreateQueryDef("", param & "select * from TABLA where CAMPO LIKE [buscar];")
consulta.Parameters("buscar") = Text1.Text & "*"

''''''Si en la linea anterior agregas ("*" &) obviamente sin los parentesis antes de (text1.text...) va a buscar la cadena de texto dentro del campo, no solo por la inicial'''''''''

Set tabla = consulta.OpenRecordset()
Set Data1.Recordset = tabla
DBGrid1.Visible = True
Data1.Recordset.Close
End Sub

Saludos