thanks for your help. I'm having some trouble getting it to work. I have put the code from your example into the event for AfterUpdate of the 1st combo box. But, I get an error message about the select statement when I click on the 2nd box. This is what mine looks like, please let me know whats wrong.
Private Sub Combo1_AfterUpdate()
Combo2.RowSource = "Select [LastName] = '" & Combo1 & "'"
End Sub
thanks