No carga datos en ComboBox

[mscarlosc]

Tengo un DropDownButton y un ComboBox que no carga información, en cuanto al segundo ComboBox si lo hace y ambos tienen el mismo código. Si alguien puede indicarme cual es la razón que no funciona ?
Uso VB - FrameWork 4.50 - Visual Studio Enterprise 2015

Código (vbnet) [Seleccionar] Expandir

Private Sub FrmPersonal_Selecciona_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       ToolStripComboBox1.ComboBox.DataSource = CNTTipoTraba.TTipoTraba_ListaCB.Tables("SQL_Lista")
       ToolStripComboBox1.ComboBox.ValueMember = "CodTipTra"
       ToolStripComboBox1.ComboBox.DisplayMember = "Descripcion"

       ToolStripComboBox2.ComboBox.DataSource = CNTTipoTraba.TTipoTraba_ListaCB.Tables("SQL_Lista")
       ToolStripComboBox2.ComboBox.ValueMember = "CodTipTra"
       ToolStripComboBox2.ComboBox.DisplayMember = "Descripcion"

End Sub

[hectornunezrivas]

Hola buenas noches.
Bueno algun error que puedes tener al tratar de hacer esta conexion es que se esta instanciando la misma conexion, la misma tabla y los mismos datos al mismo tiempo. por lo tanto el primer combo box sin problema lo llena pero el segundo es posible que no lo llene por el problema que la conexion a base de datos esta abierta, entonces, no se puede generar la conexion.
Saludos

[Eleкtro]

¿Has probado a hacer lo siguiente?:

Código (vbnet) [Seleccionar] Expandir

ToolStripComboBox1.ComboBox.DataSource = CNTTipoTraba.TTipoTraba_ListaCB.Tables("SQL_Lista")
ToolStripComboBox1.ComboBox.ValueMember = "CodTipTra"
ToolStripComboBox1.ComboBox.DisplayMember = "Descripcion"

ToolStripComboBox2.ComboBox.DataSource = ToolStripComboBox1.ComboBox.Items

Saludos!

[hectornunezrivas]

Hola.
Yo lo eh hecho de la siguiente manera

Código (vbnet) [Seleccionar] Expandir


        Dim MyCommand As OleDb.OleDbCommand
       Dim MyAdapter As New OleDb.OleDbDataAdapter
       Dim MyConexion As New OleDb.OleDbConnection
       MyConexion.ConnectionString = "provider=microsoft.ACE.OLEDB.12.0;DATA SOURCE=" & RutaBD & " ;persist security info=false"
       MyCommand = MyConexion.CreateCommand
       MyCommand.CommandText = "SELECT * FROM Clientes"
       MyAdapter.SelectCommand = MyCommand
       Dim Dt_Cliente As New DataTable
       MyAdapter.Fill(Dt_Cliente)
       MicomboBox.DataSource = Dt_Cliente
       MicomboBox.DisplayMember = "Nombre"
       MicomboBox.ValueMember = "ID"

Saludos. espero te sea de ayuda.