puedes hacer una consulta para llenar el list y otra para mostrar los datos
dim BD as database
dim Tb as recordSet
Set BD = workspaces(0).Opendatabase("basededatos.mdb")
set tb = bd.OpenrecordSet("SELECT Nombres FROM Tabla ORDER BY Nombre DESC;")
while not tb.eof
List.AddItem trim(tb!Nombre)
tb.MoveNext
wend
tb.close
bd.close
Set tb = nothing
set Bd = nothing
y en el evento click del list pondrías un codigo similar para que te búsque los datos de la persona
dim BD as database
dim Tb as recordSet
Set BD = workspaces(0).Opendatabase("basededatos.mdb")
set tb = bd.OpenrecordSet("SELECT Nombres FROM Tabla " & _
"WHERE Nombre = '" & List.List(List.ListIndex) & "';")
text1.text = trim(tb!Nombre)
text2.text = trim(tb!Edad)
text3.text = trim(tb!Otro)
tb.close
bd.close
Set tb = nothing
set Bd = nothing