Synchronize two combo boxes

[rlopez27]

Hi,

I have this code:

Private Sub cmbBU_Code_AfterUpdate()
Me.cmbPosition.RowSource = "SELECT qry_BU_Position.POSN_ID,qry_BU_Position.POSN_TITLE from " & _
"qry_BU_Position where qry_BU_Position.BU_Code= " & Me.cmbBU_Code
Me.cmbPosition = Me.cmbPosition.ItemData(0)
End Sub

And not work. What happen????

Thank,
Rlopez27