hola jodasamu
prueba esto
Dim rsMarca As New ADODB.Recordset
Set rsMarca = New ADODB.Recordset
rsMarca.CursorLocation = adUseClient
SQL = "SELECT * FROM Marcas"
rsMarca.Open SQL, CN, adOpenStatic, adLockReadOnly
Set DataCombo1.RowSource = rsMarca
DataCombo1.ListField = "Codigo_Marca"
DataCombo1.BoundColumn = "Nombre_Marca"
te muestra los nombres y te guarda el codigo, para guardar el dato del datacombo lo manejas asi:
suerte
desarrollo
