Public oForm oForm = Createobject('myForm') m.oForm.Show Define Class myForm As Form DataSession=2 Add Object testgrid As Grid Procedure TestGrid.Init With This .RecordSourceType = 4 .RecordSource = ; 'Select c.cust_id, c.company,'+ ; ' o.order_id, o.order_date,'+ ; ' e.First_Name-(" "+e.Last_Name) As Employee,'+ ; ' oi.line_no, p.prod_name,'+; ' oi.unit_price, oi.quantity'+; ' FROM testdata!customer c'+ ; ' INNER Join testdata!orders o ON c.cust_id = o.cust_id'+ ; ' INNER Join testdata!Employee e ON o.emp_id = e.emp_id'+ ; ' INNER Join testdata!orditems oi ON o.order_id = oi.order_id'+ ; ' INNER Join testdata!products p ON oi.product_id = p.product_id'+ ; ' order By c.cust_id,o.order_id,oi.line_no'+ ; ' into cursor crsGrid' Endwith Endproc EnddefineCetin