Como ordenar datos en un listbox?

[-thor-]

Hola,estoy mostrando los datos que saco de una base de datos access dentro de un listbox,cuando apreto el boton que realiza la consulta a la bdd,funciona todo correcto,pero los datos me aparecen todos desordenados dentro del listbox
como se ven en esta imagen:


Como podria conseguir que los datos me aparezcan ordenados en el listbox?,es decir que los nombres salgan alineados al igual que los otros datos.
gracias

este es mi codigo en visual

Código:

Private Sub Command1_Click()
Text1.SetFocus
Command1.SetFocus

Set bd = OpenDatabase(App.Path & "\usuarios.MDB")

SQL = "select * from Tabla1"
Set Rst = bd.OpenRecordset(SQL)
Do Until Rst.EOF
                        
List1.AddItem Rst(0) & "               " & Rst(1) & "           " & Rst(2) & "         " & Rst(3)

Rst.MoveNext
Loop
End Sub

[Insomnia]

Hola

En lugar de utilizar los espacios en blanco utiliza VbTab, de todas formas igual tendrías que calcular el ancho de los caracteres para saber cuantos vbtab tienes que introducir, pero en principio prueba con vbtab

Código:

List1.AddItem Rst(0) & VbTab & Rst(1) & VbTab & Rst(2) & VbTab & Rst(3)

--Saludos--