Visual Basic - buscar un valor

por favor alguien que me ayude quiero buscar un valor
te explicaré brevemente tengo un formulario con los datos de una tabla y quisiera buscar por el campo id que tengo un numero de registro y si lo hay me lo muestre en pantalla rellenando los siguientes campos de la tabla y si no me muestre un mensaje avisandome que no lo encuentrá me urge por favor

carga la tabla en un recordset:

rst.open "mitabla", opciones
rst.movefirst
encontrado=false

recorre la tabla registro a registro:

do while not rst.EOF
if rst!id= var_id then
'rellenar los campos con los datos del recordset.
encontrado=true
exit do
end if
loop
if not encontrado then
msgbox "registro no encontrado"
end if

espero q te sirva, un saludo,
luisvie