Meerdere kolomen in een listbox

[HWV]

Beste,

Ik haal gegevens vanuit excel naar word.
Via een listbox laat ik de kolom naam zien die dan opzijn beurdt de textboxen boven de listbox vult.
Tot zo ver goed.
Nu heb ik namen die het zelfde zijn en dan laat hij de zelfde adres gegevens zien.
Ik kan het oplossen door in de listbox de adresgegevens alvast te laten zien.
Maar hoe kan ik in een listbox meerdere kolommen krijgen en die dan vullen vanuit excel

Ik zou in totaal 3 kolommen willen hebben en die laten vullen met Adreslijn1 en Localiteit
Ik denk dat het iets te doen heb het rood gekleurde maar weet het helaas niet

Private Sub UserForm_Initialize()
    c4 = FindWindow("ThunderDFrame", Me.Caption)
    SetWindowLong c4, -16, 0
    DrawMenuBar c4
OpenConnection
setRs
rs.Open "select distinct * FROM [Data1$]", conn
    Do While Not rs.EOF
[COLOR="Red"]    Me.ListBox1.AddItem rs("Adresnaam1")[/COLOR]
    rs.MoveNext
    Loop
CloseConnection

End Sub

Hopende dat iemand mij hierbij kan ondersteunen

Groet HWV

 

[HWV]

Private Sub UserForm_Initialize()
Me.ListBox1.ColumnWidths = "30; 150; 150; 150 "
Dim i As Integer
    c4 = FindWindow("ThunderDFrame", Me.Caption)
    SetWindowLong c4, -16, 0
    DrawMenuBar c4
OpenConnection
setRs
rs.Open "SELECT [Factuuradresnummer], [Adresnaam1], [Adreslijn1], [Localiteit] FROM [Data1$]", conn
 rs.MoveFirst
i = 0
With Me.ListBox1
    .Clear
    Do
        .AddItem
        .List(i, 0) = rs![Factuuradresnummer]
        .List(i, 1) = rs![Adresnaam1]
        .List(i, 2) = rs![Adreslijn1]
        .List(i, 3) = rs![Localiteit]
        i = i + 1
        rs.MoveNext
    Loop Until rs.EOF
End With

CloseConnection

End Sub

Zo lukt het om kolommen te maken.
dit ter informatie

Weet iemand hier een oplossing voor:
Ik heb een listbox met gegevens in word, vanuit de datbase in excel.
Nu wil ik de geselecteerde regel in de listbox wegschrijven naar textboxen.

Private Sub ListBox1_Change()
On Error Resume Next
OpenConnection
setRs
rs.Open "select distinct * FROM [Data1$] WHERE [Factuuradresnummer],[Adresnaam1],[Adreslijn1],[Postcode],[Localiteit],[Landcode],[Vertegenwoordiger],[Telefoonnummer1],[E-mailadres] = listbox1.list.value", conn
    
    TextBox2.Text = rs("Factuuradresnummer")
    TextBox3.Text = rs("Adresnaam1")
    TextBox4.Text = rs("Adreslijn1")
    TextBox5.Text = rs("Postcode") & "  " & rs("Localiteit") & "  " & rs("Landcode")
    TextBox6.Text = rs("Vertegenwoordiger")
    TextBox7.Text = rs("Telefoonnummer1")
    TextBox8.Text = rs("E-mailadres")

CloseConnection

End Sub

Maar dit wil niet werken.
Iemand een idee

Groet HWV