este es el codigo el cual me muestra los datos pero la idea es que al seleccionar 1 me mande solo el campo clave para una cnsulta sql va el codigo:
Private Sub cboTrabajador_DropDown()
Const sPathBase As String = "D:\bd\medio_ambiente.MDB"
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
With cnn
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sPathBase & ";"
.Open
End With
rst.Open "SELECT * FROM trabajadores, encargado_area where encargado_area.f_id_trabajador=trabajadores.id_tra bajador", cnn, adOpenDynamic, adLockOptimistic
cboTrabajador.Clear
Do While Not rst.EOF
cboTrabajador.AddItem rst(2) & " " & rst(3)
rst.MoveNext
Loop
'MsgBox (paso)
rst.Close
cnn.Close
End Sub
