Ordenar datos de un ListBox

[newnovato]

amigos no puedo agregar los datos de forma ordenada en el listbox al momento de agregarlo en el listbox me aparece de la siguiente forma:

001------------> este es mi codigo de la persona
carlos---------> y este es el nombre de la persona

yo quisiera que se viera de la siguiente forma:

codigo nombre apellido fecha hora de entrada hora de salida
001 carlos urtado 24/10/2009 8 AM 12 PM


mi codigo es el siguiente:

If Text1 = "" Then
MsgBox "Debe ingresar un nombre para poder agregar un elemento", vbQuestion + vbOKOnly, "Datos incompletos"
'Salimos de la rutina ya que no se ha ingresado nada en el control text1
Exit Sub
End If

'Agregamos el contenido del Text1 en el control List1
List1.AddItem Text1

If txtNombre = "" Then
MsgBox "Debe ingresar un nombre para poder agregar un elemento", vbQuestion + vbOKOnly, "Datos incompletos"
'Salimos de la rutina ya que no se ha ingresado nada en el control text1
Exit Sub
End If

'Agregamos el contenido del Text1 en el control List1
List1.AddItem txtNombre





Para agregar los datos a la base de datos access utilizo:


Data1.Refresh
Data1.Recordset.AddNew
txtNombre.SetFocus



en total mi codigo del boton agregar es:

Private Sub CmdAgregar_Click()

If Text1 = "" Then
MsgBox "Debe ingresar un nombre para poder agregar un elemento", vbQuestion + vbOKOnly, "Datos incompletos"
'Salimos de la rutina ya que no se ha ingresado nada en el control text1
Exit Sub
End If

'Agregamos el contenido del Text1 en el control List1
List1.AddItem Text1

If txtNombre = "" Then
MsgBox "Debe ingresar un nombre para poder agregar un elemento", vbQuestion + vbOKOnly, "Datos incompletos"
'Salimos de la rutina ya que no se ha ingresado nada en el control text1
Exit Sub
End If

'Agregamos el contenido del Text1 en el control List1
List1.AddItem txtNombre





Data1.Refresh
Data1.Recordset.AddNew
txtNombre.SetFocus



End Sub




al momento que pulso agregar los datos se almacenan en la base de datos y se reflejan en el listbox pero al momento de cerrar el programa y abrirlo nuevamente los datos no se reflejan en el listbox y si estan almacenados en la base de datos los puedo revizar todos atraves del control data