*Form.Init with this.cmbCustomers .RowSourceType = 3 .RowSource = 'select company,cust_id from customer into cursor crsCust' endwith with this.lstOrders .RowSourceType = 3 .RowSource = 'select * from orders where cust_id = crsCust.cust_id into cursor crsOrder' endwith *cmbCustomers.InteractiveChange with this.parent.lstOrders .ListIndex = 0 .Requery() endwithCetin