Mostrar la lista de la base de datos en un vbcombo

[lic_dahool]

imagino que con vbcombo te referís a un cuadro combinado.
el código sería algo como lo siguiente:

Dim dbs As Database
Dim rst As DAO.RecordSet
Dim lx As String

lx = ""

Set dbs = CurrentDb ' o OpenDatabase(PAIS)
Set rst= dbs.OpenRecordset("ESTADO")

While not rst.EOF
lx = lx & rst!NOMBRE ESTADO & ";"
rst.MoveNext
Wend

lx = Left(lx, Len(lx) - 1)
ESTADO.RowSource = lx
rst.Close

saludos.