Visual Basic - necesitaria realizar una busqueda alfabeticamente

Hola, si alguien me pudiera ayudar me estoy iniciando en visual basic 6, he echo busquedas pero siempre tenes que apretar un boton para que busque, LO QUE QUIERO ES IR INGRESANDO LETRAS Y QUE ME VALLA POSICIONANDO AUTOMATICAMENTE EN EL REGISTRO. PORQUE AVECES CON EL OTRO SISTEMA SI NO PONES BIEN EL NOMBRE NO TE LO ENCUENTRA,

DESDE YA MUCHAS GRACIAS

JAVIER

ps primero k nada .. todo tu codigo tiene k estar en el evento Change.. pero un boton no tiene ese evento asi k creo k tienes k escribir el codigo dentro de un Text y en el evento change...

ahora
si es con una base de Datos utiliza el LIKE en tu select..

ps creo k con eso te ayudara para lo k quieres hacer

Sub cargar_nombres()
Adopersonal.RecordSource = "select * from contratos where nombre like '" & TxtAntecedentes & "%" & "'"
Adopersonal.Refresh

If Adopersonal.Recordset.BOF = True And Adopersonal.Recordset.EOF = True Then
Exit Sub
Else
Adopersonal.Recordset.MoveFirst
Do While Adopersonal.Recordset.EOF <> True
Set LIST = ListPersonal.ListItems.Add(, , Adopersonal.Recordset!nombre)
LIST.SubItems(1) = Adopersonal.Recordset!RUT
LIST.SubItems(2) = Adopersonal.Recordset!seccion
LIST.SubItems(3) = Adopersonal.Recordset!cargo
Adopersonal.Recordset.MoveNext
Loop
End If
End Sub

ahi tu manejas el % (comodin) para realizar la busqueda

Lo que necesitas hacer es sencillo:
En el evento Change de un textbox debes hacer tu consulta.
Ejemplo

private sub objtxt1_change()
dim csql as string,x as long
csql="Select campo1,campo2,...n From nombretabla Where left(campo,"& len(objtxt) &")='"& objtxt &"'"

objrst.open csql,objdbase
if not objrst.eof then
for x=1 to objrst.recordcount
aqui haces un por de los registros que te retorna la consulta sql
la cual podes ir filtrando en un From con un dbgrid
next x
end if
objrst.close
end sub

PD: objrst=variable de conexion al recordset
objdbase=variable de objeto a conexion de base de datos.

Para mas informacion...
[email protected]
Managua Nicaragua