Visual Basic - Buscar con LIKE y Listbox

Hola a todos, estoy haciendo una pequeña agenda, accesando a ella a traves de ADO, ya tengo listos los clasicos botones de Nuevo, Guardar(Add), Eliminar(Delete), y Actualizar(Update), pero estoy atorado con dos cosas:

1.- Botones para moverse en los registro (primero, anterior, posterior y ultimo).
He estado intentanto varias veces pero el error esque cuando estoy en el ultimo le vuelvo a dar clic y me marca error( cosa que no deberia pasar si el usuario por erro vuelve a dar clic en el mismo boton). Saben de alguna sencilla para hacer esto??.

2.- El boton de Busqueda.
Quiero que al momento de empezar a escribir en el textbox vaya poniendo los resultados en el listbox de acuerdo a lo que llevo escrito (tengo entendido que se hace en el evento change del textb) pero no tengo idea de como hacerlo, ademas, despues de que se tenga el resultado deseado en el listbox, que al hacer doble clic me llene los textboxes de registro con la informacion de la busqueda..

Es muy complicado hacer esto??..

Ojala puedan ayudarme,

Gracias de antemano,

Carlos

Hola,

1) movenext, moveprevious, movelast .... si los botones te los has montado tu ... tonces antes de hacer el move.... tienes ke comprobar que no estas al final o al principio ke son las 2 situaciones ke te hacen petar la aplicacion. Esto se hace comprobando las propiedades EOF y BOF =true .... son propiedades del recordset.

2) eso se ke se puede hacer con el combbox pero no se si se puede con el listbox. Con el combobox se realiza por medio de una propiedad del objeto.

Suerte,

SMK

hola para tu primera duda sobre los botones

yo lo haria asi
si tienes un control adodb en tu formularo yo lo haria asi a ese control adodb le llamere dtabusca

esto son los botones

private sub primero()

dtabusca.recordsource = "select * from tabla"

with dtabusca.recordset

.movefirst

end with

exit sub

private sub ultimo()

dtabusca.recordsource = "select * from tabla"

with dtabusca.recordset

.movelast

end with

exit sub

private sub anterior()

dtabusca.recordsource = "select * from tabla"

with dtabusca.recordset

if .bof then exit sub

.moveprevious

end with

exit sub

private sub siguiente()

dtabusca.recordsource = "select * from tabla"

with dtabusca.recordset

if .eof then exit sub

.movenext

end with

exit sub

para tu segunda duda

es cierto lo tienes k hacer en el textbox en la propiedad change

en esta opcion le haria asi le crearia una sub nueva de busqueda llamada busca
usando el mismo control adodb

private sub textbox_chance()

call busca(textbox.text)

end sub

private sub busca(dato as string)
' suponiendo k estab buscando en tu tabla el nombre de alguien

dtabusca.recordsource = "select * from tabla where nombre like '" & dato & "'"

with dtabusca.recordset

' esto es en caso de k no haya ningun registro
if .eof and .bof then exit sub

' SI EES UN LISTBOX

.MOVEFIRST

LISTBOX.CLEAR

DO UNTIL .EOF

LISTBOX.ADDITEM .FIELDS("NOMBRE")

. MOVENEXT

LOOP

END WITH

end sub

CON ESTO CADA VES K ESCRIBAS EN EL TEXTBOX TE VA HACER LA BUSQUEDA Y LOS RESULTADOS TE LOS VA A PONER EN EL LISTBOX

AHORA CUANDO LE DAS DOBLECLICK AL LISBOX Y TE LLENE LOS DATOS

ESO TIENES K HACER EN LA PROPIEDAD DOUBLECLIK DEL LISTBOX

CALL PONEDATOS(LISTBOX.text)

y crear una sub para que te ponga los datos