Mostrar registros de una base de datos en un ListBox - VB 6.0

[ranefi]

Agregar la siguiente referencia al proyecto:

• Microsoft ActiveX Data Objects 2.5 Library

Agregar 2 controles; 1 Label, 1 ListBox e insertar el siguiente código en un...

Formulario

'SE TIENEN QUE DECLARAR ESTAS VARIABLES, AUNQUE ASÍ ES MÁS LENTO, HAY OTRA FORMA ;)
Dim CnN As ADODB.Connection
Dim RsT As ADODB.Recordset
'''''''''''''''''''''''''''''''''''''''''''

Dim BD As String
Dim CuentaRegs As Integer



Private Sub Form_Load()
    AbreConexion 'SUB PARA ABRIR LA CONEXIÓN
    
    Set RsT = New ADODB.Recordset 'SE ESTABLECE EL JUEGO DE REGISTROS
    
    With RsT 'SE ABRE EL JUEGO DE REGISTROS
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockReadOnly
        .Open "SELECT nombre FROM datos ORDER BY nombre", CnN
    End With
    
    For CuentaRegs = 1 To RsT.RecordCount
        List1.AddItem RsT.Fields("nombre") 'SE AGREGA UNO POR UNO EL DATO DEL CAMPO NOMBRE
        
        RsT.MoveNext 'SE AVANZA UNO ADELANTE
    Next
    
    RsT.Close 'SE CIERRA EL COCHINO JUEGO DE REGISTROS
    Set RsT = Nothing 'Y SE DEJA EN NADA
End Sub

Private Sub Form_Unload(Cancel As Integer)
    CnN.Close 'SE CIERRA LA CONEXIÓN AL SALIR
    Set CnN = Nothing 'SE ESTABLECE A NADA
End Sub

Private Sub List1_Click() 'AL DAR UN CLIC EN EL ELEMENTO ÉSTE SERVIRÁ DE CRITERIO
    Set RsT = New ADODB.Recordset
    
    With RsT 'SE ABRE EL JUEGO DE REGISTROS Y SE HACE UNA CONSULTA
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockReadOnly
        .Open "SELECT telefono FROM datos WHERE nombre=" & _
            Chr(39) & List1.Text & Chr(39), CnN
    End With
    
    Label1.Caption = RsT.Fields("telefono") 'EL CAMPO TELÉFONO EN EL LABEL
    
    RsT.Close 'SE CIERRA
    Set RsT = Nothing 'SE ESTABLECE A NADA
End Sub

Sub AbreConexion()
    BD = App.Path & "\" & "Agenda.mdb" 'RUTA BASE DE DATOS COCHINA
    
    Set CnN = New ADODB.Connection 'SE ESTABLECE UNA CONEXIÓN
    
    With CnN 'Y SE ABRE LA MUGROSA CONEXIÓN
        .CursorLocation = adUseClient
        .Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & BD
    End With
End Sub

Dejo la liga a la base de datos comprimida en un archivo zip la cual deberá encontrarse en la misma carpeta del proyecto y obviamente descomprimida.

[url]http://www.4shared.com/file/23228230/f822c2bc/Agenda.html[/url]

Saludos a todos