Visual Basic - Queda muy Separado ? ¡Ayuda!

Hola Amigos mios como estan bueno mi consulta es la siguiente resulta que tengo un listbox que lee 2 tabalas de una base de datos pero cuando la lee me deja muy separada una de otra les mando la formula a ver si me ayudan
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 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
por favor ayudenme por que esto no lo puedo solucionar
GRACIAS

En que parte quedan muy separados entre tabla y tabla o entre columna y columna???

entre columna y columnas cuando se ven en el listbox la segunda tabla hay que ir a buscarla casi al final del list.

gracia