Datos desde DB a un combobox

Acá te tengo un ejemplo..
Esta hecho con dao... pero puedes arreglarlo si quieres ...
Como veras tiene tipo y cbo como parámetros..
Tipo es porque yo lo uso para cargar doc (tipo documentos )o loc (localidades)
Este es un procedimiento publico...
Por lo que puedes ponerlo en el modulo de tu proyecto... y usarlo para todos los combos que quieras cargar... ampliando el select case a tus necesidades
Public Sub cargarCombo(tipo As String, cbo As ComboBox)
'Cargar los combos con los datos de la base
Dim rsCargarCombo As Recordset
Dim tabla As String
With cbo
.AddItem "(Ninguno)"
.ItemData(.NewIndex) = 0
.ListIndex = 0
Select Case tipo
Case "doc"
'carga los datos de tipo de documento, descripcion y clave
tabla = "tpo_doc"
Set rsCargarCombo = bd.OpenRecordset(tabla, dbOpenForwardOnly)
Do While Not rsCargarCombo.EOF
.AddItem rsCargarCombo.Fields!dsc_tpo_doc
.ItemData(.NewIndex) = rsCargarCombo.Fields!tpo_doc
rsCargarCombo.MoveNext
Loop
Case "loc"
'carga los datos de las localidades, descripcion y clave
tabla = "localidades"
Set rsCargarCombo = bd.OpenRecordset(tabla, dbOpenForwardOnly)
Do While Not rsCargarCombo.EOF
.AddItem rsCargarCombo.Fields!nom_localidad
.ItemData(.NewIndex) = rsCargarCombo.Fields!cod_localidad
rsCargarCombo.MoveNext
Loop
End Select
End With
rsCargarCombo.Close
End Sub
Set rsCargarCombo = bd.OpenRecordset(tabla, dbOpenForwardOnly)
Acá donde dice BD es una variable base de datos publica que seteada a la dirección de mi base...
bdPath = App.Path & "\Modelo FISICO.mdb"
Set bd = OpenDatabase(bdPath)
Para facilitar la cosa...
Lo que hago yo es poner el valor del campo clave... en el indice del combo...
Para facilitar los otros procedimientos...