Visual Basic - Problemas con ado y un text box

El problema es el siguiente en dao usando el evento chage de un textbox
recorria la tabla buscando la coincidencia de las letras que iba ingresando con el apellido tipo la ayuda de windows que uno imgresa una letra y lista todo lo referente a esa letra y si agregas mas letras va filtrando en funcion de las letras hasta que presente en la lista el texto ingresado
el problema que quiero migrarlo a ado pero no me toma la primer letra supongamos la A y muestra ltodo el campo apellido que empieza con la A es decir no muestra nada si alguno se le ocurre como se lo voy a agradecer
List1.Visible = True
RS.Open "select Apellido, Nombre, Legajo from Personal where Apellido like '" & txtapellido1.Text & "*'" & "order by Apellido;", DB, adOpenKeyset, adLockOptimistic, adCmdText
List1.Clear
l = sendmessage(List1.hwnd, LB_SETTABSTOPS, 1&, 9&)
tabuladores.tab1 = 9: tabuladores.tab2 = 41: tabuladores.tab3 = 102
l = sendmessage(List1.hwnd, LB_SETTABSTOPS, 3&, tabuladores)
Do While Not RS.EOF
List1.AddItem RS("Legajo") & Chr(9) & RS("Apellido") & Chr(9) & RS("Nombre")
RS.MoveNext
Loop
txtlegajo.Visible = True
RS.Close

Prueba a cambiar el caracter " * " por " % ".