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

Hoja1.Cells(x,y) = format(tb!Fecha, "dd/MM/yyyy")

Private Sub Inet1_StateChanged(ByVal State As Integer)
    Dim vtData As Variant 'acá almacenamos los datos
    Dim prog As Double, filesize As Long, contenttype As String
    
    On Local Error GoTo linea1
    Select Case State
        Case icError ' 11
              ' En caso de error, devuelve ResponseCode y ResponseInfo.
            vtData = Inet1.ResponseCode & ":" & Inet1.ResponseInfo
        Case icResponseCompleted
            Dim bDone As Boolean: bDone = False
            Dim tempArray() As Byte ' Un array para grabar los datos en un archivo
            'Para saber el tamaño del fichero en bytes
            filesize = Inet1.GetHeader("Content-length")
            'Establecemos el Max del = a al tamaño del archivo
            ProgressBar1.Max = filesize
            contenttype = Inet1.GetHeader("Content-type")
            'Creamos y abrimos un nuevo archivo en modo binario
            Open App.Path & "\" & nArchivo For Binary Access Write As #1

            ' Leemos de a 1 Kbytes. El segundo parámetro indica  el tipo de fichero. Tipo texto o tipo Binario, en este caso _
            binario
            vtData = Inet1.GetChunk(1024, icByteArray)

            DoEvents
            'Si el tamaño del fichero es 0 ponemos bDone en True para que no entre en el bucle
            If Len(vtData) = 0 Then bDone = True

            Do While Not bDone
                'Almacenamos en un array el contenido del archivo
                tempArray = vtData
                'Escribimos el archivo en disco
                Put #1, , tempArray
                'Aumentamos la barra
                ProgressBar1.Value = ProgressBar1.Value + Len(vtData) * 2
                prog = (ProgressBar1.Value + Len(vtData) * 2) / 1000000
                lblDescarga.Caption = "Descargando: " & Format(prog, "0.00") & "MB de " & Format(filesize / 1000000, "0.00") & "MB"
                                
                ' Leemos de pedazos de a 1 kb (1024 bytes)
                vtData = Inet1.GetChunk(1024, icByteArray)
                DoEvents
                If Len(vtData) = 0 Then bDone = True
            Loop
            completo = bDone
            Close #1
            ProgressBar1.Value = 0
    End Select
    Exit Sub
linea1:
    MsgBox "Error al conectarse al servidor" & vbCrLf & vbCrLf & Err.Number & vbCrLf & Err.Description, vbInformation + vbOKOnly, App.EXEName
    completo = True
    On Local Error GoTo 0

End Sub

celda = format(tb!Fecha, "dd/MM/yyyy")