VB报表问题，解决后立即给分！

Question

我要再显示打印预览时换数据库文件。
用VB自己的报表如何做？我做法如下：'这里给出数据库文件名称，所有库文件的结构相同
DataEnv1.Connection1.ConnectionString = connstring(dbfilename)         If DataEnv1.rsCommand1.State = adStateOpen Then
           DataEnv1.rsCommand1.Close
       End If
       DataEnv1.rsCommand1.Open g_datashowstr
       If DataEnv1.rsCommand1.EOF = True Then
            U = MsgBox("没有当前记录！", vbOKOnly + vbExclamation, "警告")
            Exit Sub
       End If
       DataReport_path.Show 1
       
       DataEnv1.rsCommand1.Close 'addDataEnv1.Connection1.Close  'add第二次调用时不行！
出错提示如下：
DataEnv1.rsCommand1.Open g_datashowstr‘第二次时提示rsCommand1已经被关闭！怎样重新打开rsCommand1呢？

Answer 1

把If DataEnv1.rsCommand1.State = adStateOpen Then
           DataEnv1.rsCommand1.Close
       End If
替换成DataEnv1.rsCommand1.Close
以下代码If DataEnv1.rsCommand1.EOF = True Then
            U = MsgBox("没有当前记录！", vbOKOnly + vbExclamation, "警告")
            Exit Sub
       End If
直接退出，而没有关闭数据集

Answer 2

是这个的问题:
DataEnv1.rsCommand1.Close 'addDataEnv1.Connection1.Close  
记录集和连接对象被关闭后要重新打开连接对象和RSCOMMADN1才可以重新得到记录来输出的,你可以调试看看就知道了.