Visual Basic - Busqueda con un textbox

bueno mi pregunat es como hacer que al ir escribiendo una letra en el text box en la base de datos este buscando las coincidencias hasta que yo encuentre los que deseo por ejemplo:

en una base busco jabon, entonces en el textbox pongo j y debe de buscarme que registros empiezan con j y asi sucesivamente hasta que encuentre le jabon, estoy tratando pero no me sale les mando el codigo para que me ayuden de antemano gracias:

Private Sub txtNombre_Change()
busq = StrConv(txtNombre.Text, vbUpperCase)
If Len(txtNombre.Text) > 0 Then
If datConsultas.Recordset("NombreLicor") = busq Then
txtNombre.SelStart = ini
Else
datConsultas.Recordset.MoveFirst
Do While (Mid(datConsultas.Recordset("NombreLicor"), 1, Len(busq)) <> busq)
datConsultas.Recordset.MoveNext
If datConsultas.Recordset.EOF Then
Exit Do
End If
Loop
ini = txtNombre.SelStart
If Not datConsultas.Recordset.EOF Then
txtNombre = datConsultas.Recordset("NombreLicor")
'gridconsultas.
End If
End If
End If
txtNombre.SelStart = ini
End Sub

espero que alguien me ayude gracias...URGENTE

ah y por cierto las coincidencias se muestran en una dbgrid al ir colocando las palabras en el textbox

yo tengo el mismo problema q vos lo probe de mil maners y no me sale, por favor si le encontras la vuelta avisame.
GRACIAS

Hola Raymundo y Vane, veo que tienen el mismo problema. no se si lo que se me ocurrio es lo que buscan pero espero que les sirva, seguramente hay otras formas de hacer eso...pero bueno... en fin...
Les envio el proyecto de ejemplo en un archivo ZIP. Suerte y escriban si tienen alguna duda... =)

Este es un ejemplo de como lo hice yo. En este ejemplo realizado sobre un textbos, busco un articulo en mi base de datos, haciendolo ver en un datagrid los resultados obtenidos.

Private Sub txtBuscar_Change()
Dim cadena As String
If txtBuscar.Text <> "" Then
Set dgArticulos.DataSource = Nothing
Set rsArticulos = New Recordset
If OptNombre.Value = True Then
cadena = "select * from articulos where Descripcion_Art like '" & txtBuscar.Text & "%'"
rsArticulos.Open cadena, db, adOpenStatic, adLockReadOnly
Else
cadena = "select * from articulos where Codigo_Barras like '" & txtBuscar.Text & "%'"
rsArticulos.Open cadena, db, adOpenStatic, adLockReadOnly
End If
Set dgArticulos.DataSource = rsArticulos
Else
Set dgArticulos.DataSource = adoPrimaryRS
End If
End Sub

El opt* es pq tenía un radioboton para buscar por distintos campos.

Saludos.

Kreator.