ListBox en VBA dependiendo de Access

Soy nueva en esto. Estoy haciendo un formulario en Excel y necesito que en un listBox del formulario me traiga datos de una tabla en Access. Hasta ahora he logrado que me traiga los datos, pero me los trae todos en una sola columna y necesito que sean en dos columnas.

Les agradezco vuestra ayuda!.
Aca va el código:
Private Sub CommandButton1_Click()
Dim cn As ADODB.Connection, rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & "data source=" & ThisWorkbook.Path & "\BD_Transporte.accdb;"
Rs. Open "VIAJES", cn, aadOpenStatic
Rs. MoveFirst
With Me.ListBox1
. Clear
Do
. AddItem rs! FECHA
. AddItem rs! CLIENTE
Rs. MoveNext
Loop Until rs.EOF
End With
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

1 respuesta

Respuesta
1

H o l a:

Prueba lo siguiente:

Private Sub CommandButton1_Click()
    Dim cn As ADODB.Connection, rs As ADODB.Recordset
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & "data source=" & ThisWorkbook.Path & "\BD_Transporte.accdb;"
    Rs. Open "VIAJES", cn, aadOpenStatic
    Rs. MoveFirst
    With Me.ListBox1
        . Clear
        Do
            . AddItem rs! FECHA
            .List(.ListCount - 1, 1) = rs!CLIENTE
            rs.MoveNext
        Loop Until rs.EOF
    End With
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

':)
S a l u d o s . D a n t e   A m o r
':) Si es lo que necesitas. Recuerda valorar la respuesta. G r a c i a s.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas