Visual Basic - problema con combobox

Hola a todos , tengo un problema y quisiera que me ayudarais.
He unido una bases de datos access con visual basic con ADO y en el formulario tengo conectada la base de datos sin problema , pero he colocado en el formulario un combobox para que me muestro paises pero solo me muestra el primero de la lista.
alguien me puede decir como me puede mostrar todos los paises .

un saludo

trata de esta manera
Consql1 = "SELECT nombre_pais FROM pais "
Rs1.Source = Consql1
Rs1.Open
Rs1.MoveFirst
Do While Not Rs1.EOF
combo1.text=rs1!nombre_pais
Rs1.MoveNext
Loop
espero que te resulte.

Santo dios!!!!! uno peor que el otro... wladimir... tenés razón, ahora no le va a mostrar el primer país... le va a mostrar el último!!!!

nadie conoce el método "additem"??????



Consql1 = "SELECT nombre_pais FROM pais "
Rs1.Source = Consql1
Rs1.Open

Do While Not Rs1.EOF
combo1.AddItem rs1!nombre_pais
Rs1.MoveNext
Loop


por cierto... si ponés un MoveFirst antes de verificar que el recordset no esté en EOF, y por casualidad la consulta no te trajo ningún registro, te va a saltar un error en tiempo de ejecución más grande que una casa!!!!!!!


saludos gente