Thankyou Cetin,

When I put this syntax into form init I get an error 'unrecognised command verb'. What does this mean?

SET EXCLUSIVE OFF
SET DEFAULT TO ("C:\Foxpro Projects\Statistics")

with thisform.combo1
 .RowSourcetype = 3
 .Rowsource = 'Select distinct type from products into cursor crsproduct'
 .ColumnCount = 1
 .displayvalue='Select Product Group'
ENDWITH

with this.combo2
 .RowSourcetype = 3
 .Rowsource = 'Select subtype from products where type=crsproduct.type into cursor crssubtype'
 .ColumnCount = 1
 .displayvalue='Select Product Type'
ENDWITH

Many Thanks

My Table called products has 2 fields namely Type and Subtype. I have 5 records in there:

Type                Subtype

Trouser             Slimleg
Trouser             Kickflare
Trouser             Bootleg
Jacket              Double Breasted
Jacket              Single Breasted