Gracias a un recordset cargaremos un combo. Para ello tenemos que iterar el recordset y en cada elemento del recordset, añadiremos un item en el combo:

While Not Rs.EOF
Me.Combo.AddItem Rs("CampoBD") & ";" & Rs("CODIGO")

Rs.MoveNext
Wend