Add whatever field is the first field in the query that fills cboProjectName to the query that fills cboSub.
In the criteria section of this field in (qrycboSub) add Forms!frmTheNameOfTheForm!cboProjectName.
Then in AfterUpdate of cboPrjectName - (in the code) - add: Me!cboSub.Requery