Visual Basic - "Como lleno un ListBox "

Hola Saludos a todos
Mi pregunta es como lleno yo un ListBox, con un recordset donde quiero que aparezca un listado asi mas o meno
Nombre ID
Maria 1234
Juan 1235
el problema esta en como se llena el lista columna por columna, (si es posible eso??), pude hacerlo de esta manera nada mas
while NOT Recordset.EOF
Listado.AddItem (Nombre + " "+ ID)
Recorset.MoveNext

wend

Otra forma es usar el control DataList

un ejemplo(no corre adaptalo a tu necesidad):

Dim sBase, sql As String
Dim rst1 As New ADODB.Recordset
dim Cnn1 as new ADODB.Connection
' Asignar el nombre de la base de datos
' (si la aplicación se ejecuta en el directorio raiz, quitar el \)
sBase = App.Path & "\BD\dbbajas.mdb"

Cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
sql = "SELECT * FROM Tcategorias ORDER BY nombre"
rst1.CursorLocation = adUseClient
rst1.Open sql, Cnn1, adOpenForwardOnly, adLockReadOnly

rst1.MoveFirst

DataList1.BoundText = "COL_LLAVE"
DataList1.ListField = "CAMPO_A_MOSTRAR"
Set DataList1.RowSource = rst1