Visual Basic - por que me queda tan separado

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

lo mas seguro es que el campo2 es string con muchos espacios (pongamos 50) al hacer List1.AddItem ![campo2] & " " & ![nombre] & " "
te metera el campo2 con 50 de longitud y despues el nombre. para quitar lo espacios pones List1.AddItem trim$(![campo2]) & " " &trim$( ![nombre]) & " "

Hola, uno de lo errores es que tu tienes distinto tamaño en el campo por lo que tienes que hacer lo siguiente.

List1.AddItem ![mid(campo2,1,40)] & " " & ![mid(nombre,1,40)] & " "

suerte

Germán Romo
Quito-Ecuador