ayudar con visual basic 6.0

[newnovato]

amigos stoy tratando de que los datos que envio a mi base de datos access se puedan ver de forma ordenada en columnas separadas y no uno encima del otro mi codigo del comando agregar es el siguiente

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