急！急！急！急！！！打印报表问题！高分请出各位高手！

[visualcpu]

问题是这样的：
我在文本框中输入我要打印的资料名，然后它就会显示报表。这个功能是可以实现，但如果我打印完后，再返回窗体继续输入我要打印的资料名，它就报错！我的代码是这样的：DataEnvironment1.Connection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=D:\visualcpp\cpp.mdb"
If Option1.Value = True Then
DataReport1.Caption = Form16.Option1.Caption
DataEnvironment1.rsCommand1.Open "select * from cuao where( name='" & Text1(0).Text & "' and (date) between val('" & Text1(1).Text & "')and val('" & Text1(2).Text & "')) order by date;"
报错信息：如果对象已经打开，则不允许执行应用程序所要求操作
然后我就用语句把它关闭掉，它又会提示对象连接到一个已关闭的对象，请各位高手帮忙，一定给分！

[playyuer]

'.....
if DataEnvironment1.rsCommand1.State = adStateOpen then
DataEnvironment1.rsCommand1.close
end if
DataEnvironment1.rsCommand1.Open "...."