Visual Basic - AYUDA 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

do until buscar.eof

combo1.additem buscar("campo")

buscar.movenext

loop