The following event will take care of u r req.
Private Sub combo1_Click()
combo2.ListIndex = Combo1.ListIndex
End sub

Originally posted by smitty:

"Select name,job from employee where number = 1"
rs.MoveFirst

While Not rs.EOF
Combo1.AddItem rs(0)
Combo2.AddItem rs(1)

If I have more than 1 recordset returned, I populate the combo boxes.

How---If I select combo1.list(1) how do I make combo2 automatically change to .list(1)?