dataenv的用法!!急!!

用VB+access做了一个教务管理系统,access数据库中其中有两个表,我用dataenv进行操作,现在我可以访问第一个表,包括显示修改添加等等,但是一访问第二个表就出错,说"对象关闭时,不允许操作",这是怎么回事啊?!
出错代码如下
Sub Seekscor(sSerial As String)
   If Not (DataEnv.rsscor.EOF And DataEnv.rsscor.BOF) Then
      Dim Temp As String
      Temp = "学号 = " & "'" & sSerial & "'"
      
      DataEnv.rsscor.MoveFirst
      DataEnv.rsscor.Find Temp
      
      '刷新所绑定的控件
      Call RefreshBinding
  End If
End Sub
可能不是这段代码的问题,我就是不明白dataenv到底是怎么用的,谁能告诉我啊??
谢谢谢谢了!!!! --------------------编程问答-------------------- If Not (DataEnv.rsscor.EOF And DataEnv.rsscor.BOF) Then
改为
If Not (DataEnv.rsscor.EOF OR DataEnv.rsscor.BOF) Then
同时EOF 又BOF 是不可能的！ --------------------编程问答-------------------- 不好意思我没看清楚，Access中可能这样写可以，但这样写还是不太好。
还有"对象关闭时,不允许操作",估计是程序上面哪里又Close调了，你看看。 --------------------编程问答-------------------- 我在用VB做信息系统时，也遇到了同样的问题。请问你后来是怎么解决的？ --------------------编程问答-------------------- 做个判断，如果为close，则open一下

补充：VB ,  数据库(包含打印，安装，报表)