Visual Basic - no se por que sucede esto

hola atodos
Private Sub Form_Load()
'Abre la Base de Datos en Access
Dim base As Database
Dim buscar As Recordset
Set base = OpenDatabase("E:\bd2.mdb")
Set buscar = base.OpenRecordset("consulta")
'Abre las columnas seleccionada
With buscar
.MoveFirst
Do While Not .EOF
List1.AddItem ![campo2] & " " & ![nombre] & " "
.MoveNext
Loop
'End With
End With
Set base = OpenDatabase("E:\bd2.mdb")
Set buscar = base.OpenRecordset("ingresados")
'Abre las columnas seleccionada
With buscar
.MoveFirst
Do While Not .EOF
List2.AddItem ![campo4] & " " & ![campo2] & " "
List3.AddItem ![campo3] & " "
.MoveNext
Loop
End With
End Sub
con este procedimiento llamo a 2 tablas en access y las coloco en un listbox en VB6 pero tengo un problema cuando las veo queda demasiado separada una de otra tendra arreglo
ojala me contesten pronto

gracias atodos

quedan separados porque las cadenas que tienes en los campos contienen espacios innecesarios.

usa la propiedad trim.
Y en lugar de separarlos con " ", usa vbtab.