*Form.init with this.cboCompany .RowSourceType = 3 .RowSource = 'select Company, CompanyID from Companies'+; ' order by Company'+; ' into cursor crsCompany' .Style = 2 .ListIndex = 1 endwith with this.lstPersonnel .RowSourceType = 3 .RowSource = 'select PersonName, PersonID from Personnel'+; ' where CompanyID == crsCompany.CompanyID'+; ' order by PersonName'+; ' into cursor crsPersonnel' endwith *cboCompany.InteractiveChange with thisform.lstPersonnel .Requery() .ListIndex = 0 endwithCetin