DataReport - корректное закрытие объекта - VB

Формулировка задачи:

После вывода на печать DataReport1 выполняю Set DataReport1= Nothing. (для того чтобы при следующем выполнении прошла процедура DataReport Initialize) Через несколько секунд - Программа выполнила недопустимую операцию... Без Set DataReport1=Nothing все нормально, но при повторном запуске отчета - старые данные... Помогите найти решение, может кто встречался?

Решение задачи: «DataReport - корректное закрытие объекта»

textual
                            Листинг программы 
                        

                            if DR.rsКоманда.state=1 then DR.rsКоманда.close
DR.Команда
DR.show
                        