ارتباط بین کدنویسی ها

سلام دوستان .
من یک کدنویسی به شرح ذیل دارم که میگه بعد از AfterUpdate کمبوباکس 14 و پس از انتخاب یک گزینه از منوی کشوئی کمبوباکس 14، داده های مرتبط را در کمبوباکس 16 نشان بده، حالا اگر بخوام در ادامه همین کد نویسی ، کدی داشته باشم که با انتخاب یک گزینه در کمبوباکس 14 ، بتونم داده های مرتبط را در کمبوباکس 12 ( بدون اینکه بخوام در کمبوباکس 16 کاری انجام بدم) انتخاب کنم به چه ترتیبی باید عمل کنم. ( کد نویسی را در پیوست ملاحضه نمایید)
Private Sub Combo14_AfterUpdate()
' Set the second combo box to be limited by the first

Me.Combo16.RowSource = "SELECT karejozi.NoeTamirat FROM karejozi " & _
" WHERE codekar = " & Nz(Me.Combo14) & _
" ORDER BY karejozi.NoeTamirat"
Me.Combo16 = Null

Me.Combo12.RowSource = "SELECT Components.NoeTamirat FROM Components " & _
" WHERE codekar = " & Nz(Me.Combo14) & _
" ORDER BY Components.NoeTamirat"
Me.Combo12 = Null
End Sub