*** Set up the SQL statement to use as the RowSource
*** for the dependent list box (Combo6)

*** Select only the items that have a main_no equal
*** to the item selected in the CmbProcess_no combo box.

lcRowsource = 'Select sub_no, sub_desc from proc_no'
lcRowsource = lcRowsource + 'where proc_no.main_no = (ThisForm.CmbProcess_no.Value ) into ;
cursor c_proc_no'
lcRowsource = lcRowsource + 'order by sub_no'


*** Now set up the properties of Combo6
WITH THIS
	.ROWSOURCETYPE = 3
	.ROWSOURCE = lcRowsource
*** Don't forget to repopulate the control's internal list
	.REQUERY()
*** Initialize it to display the first item
	.LISTINDEX = 1
ENDWITH