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

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