Cargar combobox de varias columnas en formulario con datos de access

[Juan Suarez]

Estimados buenas tardes,

Estoy con un combobox cargando datos de tabla de access.

Si agrego Fields(0) , Fields(1), como esta pensado  en el algoritmo que copio a continuación , los carga en filas diferentes de esta manera

3

          Dato1

4

Dado 2

2

Cuando 3 es el Id de Dato 1 y 4 es el Id de Dato2

La idea es  que al seleccionar el nombre se obtenga el valor del Id correspondiente en una variable

Esto es a efectos de obtener el id para agregar datos en otra tabla 

 

Aguardo su ayuda 

Muchas gracias

 

Private Sub CargoComboAccess()
    Dim cn As Object
    Dim datos As Object
    Dim consultaSQL As String
    Dim conexion As String
    Dim rutaBaseDatos As String
    
    Set cn = CreateObject("ADODB.Connection")
    
    'Obtengo la ruta donde se encuentra el archivo de Excel actual
    rutaBaseDatos = ThisWorkbook.Path & "\Rbo.accdb"
    
    conexion = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
        "Data Source=" & rutaBaseDatos 'Ruta de la base de datos en la misma carpeta del archivo de Excel
        
    consultaSQL = "SELECT * FROM TRUBRADO" 'Aqui va el nombre de la tabla access
    cn.Open conexion
    Set datos = cn.Execute(consultaSQL)
    Do While Not datos.EOF
        Dim filaCombo As String
        filaCombo = datos.Fields(1)
        ' Agregar la cadena al ComboBox
        Me.ComboBox1.AddItem filaCombo
        datos.MoveNext
    Loop
    datos.Close
    Set datos = Nothing
    cn.Close
    Set cn = Nothing
        
End Sub

[Abraham Valencia]

Adjunta tus datos para poder ayudarte.

[Juan Suarez]

Estimado Abraham, gracias por la respuesta.

Dejo este tema en suspenso para retomarlo mas adelante si es posible ,

No quería dejar sin respuesta a tu solicitud.

Saludos.