VB调试中遇到“对象关闭时，不允许操作”

Question

代码如下
Private Sub cmdRefresh_Click()
    Dim obj As Object, i%
    With Instrument_Store.rsStockData
        If .RecordCount > 0 Then
            If .Status = adRecModified Then .CancelUpdate
            .Requery   '刷新记录集
            For i = 0 To 12                  '重新执行数据绑定
                Set txtStock(i).DataSource = Instrument_Store
                txtStock(i).DataMember = "StockData"
            Next
            txtStock(0).DataField = "编号"
            txtStock(1).DataField = "类型"
            txtStock(2).DataField = "地址"
            txtStock(3).DataField = "数量"
            txtStock(4).DataField = "单位"
            txtStock(5).DataField = "供应商"
            txtStock(6).DataField = "经办人"
            txtStock(7).DataField = "备注"
            txtStock(8).DataField = "最大量"
            txtStock(9).DataField = "最小量"
            txtStock(10).DataField = "入库时间"
            txtStock(11).DataField = "出库时间"
            txtStock(12).DataField = "有效期"
            End If
    End With
    Instrument_Store.rsStockInfo.Requery
    Set dgShowInInfo.DataSource = Instrument_Store
    dgShowInInfo.DataMember = "InInfo"
    Set dgShowOutInfo.DataSource = Instrument_Store
    dgShowOutInfo.DataMember = "OutInfo"
    cmdSave.Enabled = True
    picNavigation.Enabled = True
    cmdMove(0) = True
End Sub
提示If .RecordCount > 0 Then为出错字段
我在网上找了找相关资料还是没有解决，特来求解答，谢了VB对象

Answer 1

Instrument_Store.rsStockData没有open
Instrument_Store.rsStockData.open '?不知道你的Instrument_Store是什么对象，是否可以这样打开

Answer 2

Instrument_Store是数据环境设计器，至于这里没有open是因为其它类似语句也并没有事先声明，如下面这段是可以运行的
Private Sub cmdRefresh_Click()
    Dim i%
    With Instrument_Store.rsInInfo
        If .RecordCount > 0 Then
            If isAdding Then .CancelUpdate          '取消未保存的新添加记录
            .Requery                                '刷新记录集
            For i = 0 To 5                          '重新执行数据绑定
                Set txtInInfo(i).DataSource = Instrument_Store
                txtInInfo(i).DataMember = "InInfo"
            Next
            txtInInfo(0).DataField = "编号"
            txtInInfo(1).DataField = "名称"
            txtInInfo(2).DataField = "地址"
            txtInInfo(3).DataField = "供应商"
            txtInInfo(4).DataField = "入库时间"
            txtInInfo(5).DataField = "备注"
        End If
    End With
    cmdAdd.Enabled = True
    cmdDelete.Enabled = True
    isAdding = False
    picNavigation.Enabled = True
    cmdMove(0).Value = True
End Sub

Answer 3

你的这个Instrument_Store.rsStockData没有打开阿
打开就可以了，你不是有运行顺利的代码了么。照葫芦画瓢就成了Instrument_Store.rsStockData连接成功了没有？