Modify Form myDETest NoWait aselobj(aObj,2) With aObj[1] .AddObject('myEmployee','cursor') .AddObject('myOrders','cursor') With .myEmployee .Database = Sys(5)+Curdir()+'testdata.dbc' .CursorSource = 'employee' endwith With .myOrders .Database = Sys(5)+Curdir()+'testdata.dbc' .CursorSource = 'orders' .Order = 'emp_id' EndWith endwithCetin