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

我要再显示打印预览时换数据库文件。
用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呢？