una imágen vale mas que 1000 palabras ... lo que tienes que hacer es cargar los dos combos de la base de datos con el mismo procedimiento, solo tienes que cambiar el ValueMember y el DisplayMember
Código:
Public Sub cargarCombo(ByVal cnn As SqlClient.SqlConnection, ByVal strConsulta As String, ByVal CboBox As ComboBox,strValue as String,strDisplay as String) '11SEP2010
Me.comprobarLaConexion(cnn)
Dim cmd As New SqlCommand(strConsulta, cnn)
Dim da As New SqlDataAdapter(cmd)
Dim ds As New DataSet
da.Fill(ds)
CboBox.DataSource = ds.Tables(0)
CboBox.ValueMember = ds.Tables(0).Columns(strValue).Caption.ToString
CboBox.DisplayMember = ds.Tables(0).Columns(strDisplay).Caption.ToString
End Sub
luego en el selectedIndexChanged pones
Código:
combo.selectedindex=combo2.selectedindex