consulta sobre combobox

[Mephisto]

Posteo el codigo que utilizo para cargar una combo Box desde una base de datos. Espero te sirva

'COMBO MODULOS
Set rsMyRecordset = New Recordset
With rsMyRecordset
.Source = "SELECT Nombre_Mod FROM Modulos"
.ActiveConnection = PantallaGestion.cnBDGestion
End With
rsMyRecordset.Open Options:=adCmdText

'Vincula el campo con el Record Generado
Set ModulosCb.DataSource = rsMyRecordset
'Carga la combo con el resulatado de la consulta
Do Until rsMyRecordset.EOF
ModulosCb.AddItem rsMyRecordset("Nombre_Mod")
rsMyRecordset.MoveNext
Loop
rsMyRecordset.Close