Set clnd = CreateObject("Stimulsoft.Report.Com.ReportCom")
clnd.DesignReport