I placed a label on a datareport

Then I typed the following command

Private sub Command1_click()

Dim rs as new adodb.recordset
set rs=cm.execute("select sysdate from dual")
set datareport1.datasource=rs

datareport1.sections("section1").contorls.itme("label1").caption="HI"
datareport1.show

I run the program and I follow what it is doing by click on F8 , and every thing seams to be allright , I see the a report with the word HI in it.


Now when I click on the button , without breaking the code or pressing F8 , I get an error message saying ( Operation is not allowed when the object is closed!)


What is going on , can someone explain this to me ?