Control Combo
Para acceder a las diferentes columnas del resultado de un combo simplemente tenemos que consultar el la propiedad "Value" del índice de la columna en la colección "Columns" en función de la consulta original.
En el siguiente ejemplo, tras seleccionar un valor en el combo, se guardarán los valores de hasta tres columnas de la consulta original.
Código ejemplo
Sub Combo_AfterUpdate(aComboMultiple)
lColumna1 = aComboMultiple.Columns(0).Value
lColumna2 = aComboMultiple.Columns(1).Value
lColumna3 = aComboMultiple.Columns(2).Value
End Sub