SoloCodigo

realmente no se como se trabaja con el ADo pero te puedo apoyar con la referencia DAO 3.51
 PRUEBA ESTO

dim BDD as database
dim TBL as recordset
dim sql as string

Set BDD = OpenDatabase("ruta:databasename") 'Abre la base de datos
SQL = "SELECT * FROM tabla "
Set TBL = BDD.OpenRecordset(SQL)   'TBL almacena todos los valores de la tabla

x= inputbox ("nombre a buscar")

TBL.MoveFirst  'nos posicionamos en el primer registro de la tabla
Do Until TBL.EOF
    if x= TBL("campo que tiene el nombre de la persona") then
           txtnombre=TBL("camponombre")
           txtapellido=TBL("campoapellido")
           var1= TBL("campodireccion")
    end if  
    TBL.MoveNext   'pasamos al siguiente registro
Loop
 
puedes guardar los valores de los demas campos en variables que puedas usar en el otro formulario. al clic en ver puedes programar esto


form2.txtdireccion.text= var1

con esto ultimo lograras tener en el formulario 2 el valor de los demas campos que te interesa no mostrar en la forma 1

me imagino que la logica no cambia con el Componente ADO  espero te sirva de algo