Problema al cargar un combox con datos de otro combox

[alan_69niupi]

yo uso este codigo para llenar mis combobox desde una tabla,
conec.conexion()
Dim cliente As OleDb.OleDbCommand
Dim dc As OleDb.OleDbDataReader
cbxNombreCliente.Items.Clear()
cliente = New OleDb.OleDbCommand("Select NOMBRE from CATCLIENTES ", conec.con)
dc = cliente.ExecuteReader()
While dc.Read()
Me.cbxNombreCliente.Items.Add(dc(0))
End While
dc.Close()
conec.con.Close()

puedes modificarlo y adaptarlo.
espero te sirva