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  
