Visual Basic - AUDA solo Lee 1 Linea

hola a todos!
por favor necesito la uyuda de todos Uds. tengo este codigo para leer ciertas celdas de una base de datos en Access y agregarlas a un combobox con tengo en un formulario en VB . bien lo que pasa es que lee solo lo ultimo que se ingresa . y yo necesito todo lo anterior plis!Ayuda.

Private Sub Form_Load()
Dim Base As Database
Dim Buscar As Recordset
Set Base = OpenDatabase("E:\bd1.mdb")
Set Buscar = Base.OpenRecordset("fichass")
With Buscar
'.MoveFirst
.MoveLast
'.MoveFirst
Do While Not .EOF

Combo1.AddItem !nombre1 + "-" + !Rut +""+!Salida + "" + !profesional
.MoveNext
Loop
End With
End Sub

gracias atodos
se despide un agradecido

Hola.
Prueba así , tendría que funcionarte.

Dim Base As Database
Dim Buscar As Recordset
Set Base = OpenDatabase("E:\bd1.mdb")
Set Buscar = Base.OpenRecordset("fichass")
With Buscar
.MoveFirst
Do While .EOF = False
Combo1.AddItem ![nombre1] & " -- " & ![rut] & " " & ![Salida] & " " & ![profesional]
.MoveNext
Loop
End With

Saludos