Busqueda tipo Microsoft Encarta

[RsOfT]

Estoy tratando de hacer una busqueda tipo Microsoft Encarta, que a medida que escribo una letra se canguen en el listBox los que empiesen con esa letra escrita.

Estoy poniendo:

cnDatos.Open "dbDatos"
rsTblDatos.Open "Select * from TblDatos where Nombre ='" & _
LstResultado.Text & "' + *", cnDatos, 3, 3

Pero me da error de type MisMatch, en donde escribí algo mal en mi rutina? tengo entendido que para access se usa *

[RsOfT]

Ya lo resolví, el truco estaba en el % ;)

Private Sub TxtNombreBusqueda_Change()
cnDatos.Open "dbDatos"
rsTblDatos.Open "Select nombre From TblDatos where Nombre Like'" & _
TxtNombreBusqueda.Text & "%'", cnDatos, 3, 3
LstResultado.Clear
While Not rsTblDatos.EOF
A = rsTblDatos!Nombre & ""
LstResultado.AddItem (A)
rsTblDatos.MoveNext
Wend
cnDatos.Close
End Sub

.::RsOfT::.
--El que se aferra a lo conocido, nunca conocerá lo desconocido--
--Es intentando lo imposible como se realiza lo posible--
--Es de pesimo gusto contentarse con algo mediocre cuando lo excelente esta a nuestro alcance--