SALUDOS DESDE COSTA RICA... :=)
A ver si te entendi... Supongamos ke tenes en un form solamente un textbox y un datacombo ya que vamos a guardar en una BD la info. de un objeto y su color -los colores aparecera en el datacombo-
Entonces hacemos lo siguiente...
Cuando llenas el DataCombo en la propiedad ItemData se guardará el Código de Color -bueno siempre debe guardarse ahí- en la propiedad List Apareceran los colores
Quedara ASí
**-**-**-**-**- DATACOMBO1 -**-**-**-**
LIST ITEMDATA
Azul 1
Rojo 2
Verde 3
Entonces cuando vas a guardar sería
Private Sub Guardar()
Dim ID as Long 'Obtener el ID del Color
DIM SQL AS String 'Instruccion SQL
ID= DataCombo1.ItemData(DataCombo1.ListIndex)
SQL="INSERT INTO TABLA (Objeto,IDColor) Values " _
&"('" & text1.text & "', " & str(ID) & ")"
ON ERROR Goto Err_SQl
DB.Execute SQL 'Supongamos que el objeto
'DB es de tipo conection ADO 2.1 y que ya
'tienes abierta la conexion ODBC... ;)
Exit Sub
Err_Sql:
MsgBox "ERROR EN INSTRUCCION SQL :" & SQL
End
End Sub