String ls_newselect
is_oldselect = dw_1.Describe("DataWindow.Table.Select")
OpenWithParm(w_query1,dw_1)
ls_newselect = Message.StringParm
if ls_newselect="Cancel" then Return
dw_1.Modify("datawindow.table.select = ~"" + ls_newselect + "~"")
dw_1.retrieve()
dw_1.setfocus()
dw_1.Modify("datawindow.table.select = ~"" + is_oldselect + "~"")