связать 2 комбобокса?

[skulida]

скажите, как можно связать 2 комбобокса на форме?
т.е. кликая значение на одном, на другом выбирается соответствующее значение и наоборот, выбирая кликая на втором, выбирается значение на первом.
комбобоксы заполняются из базы:

Set cn = New ADODB.Connection
cn.Open "DSN=BASE"
Set rs = cn.Execute("select id_agent, agent_name from agent")
While Not rs.EOF
Combo1.AddItem rs.Fields("id_agent")
Combo1.ItemData(Combo1.NewIndex) = rs.Fields("id_agent")
Combo2.AddItem rs.Fields("agent_name")
Combo2.ItemData(Combo2.NewIndex) = rs.Fields("id_agent")
rs.MoveNext
Wend

далее что-то типа:
например...
Private Sub Combo2_Click()
If Combo2.ListIndex = -1 Then Exit Sub
Combo1 = Combo2.ItemData(Combo2.ListIndex)
End Sub

как сделать чтобы тоже самое было и по первому комбобоксу??

[GM]

Вот так:

Код: Выделить всё

Private Sub Combo2_Click()
Combo1.ListIndex = Combo1.ListIndex
End Sub
Private Sub Combo1_Click()
Combo2.ListIndex = Combo2.ListIndex
End Sub


[skulida]

...неа так не получится...
по идее вот так:

Код: Выделить всё

Private Sub Combo1_Click()
Combo2 = Combo2.ItemData(Combo1.ListIndex)
End Sub


т.е. взять значение с индексом (который выбран в combo1)...
скажите в чем я не прав??

[A.A.Z.]

Код: Выделить всё

Sub Combo1_Click()
Combo2.ListIndex = Combo1.ListIndex
End Sub

Sub Combo2_Click()
Combo1.ListIndex = Combo2.ListIndex
End Sub

Перефразированный вариант GM (он ошибся в присваивании) не подойдет?