各位帮忙看看了，急在线等！！！

Question

对象关闭时,操作不被允许
'初始化客房信息
            txtSQL = "select DISTINCT roomNO from rooms where putup <> 'y'"
            Set mrc = ExecuteSQL(txtSQL, MsgText)
        
            If Not mrc.EOF Then-----------错误所在
                
                    Do While Not mrc.EOF
                        cboItem(0).AddItem Trim(mrc.Fields(0))
                        mrc.MoveNext
                    Loop
            Else
                MsgBox "请先进行客房登记！", vbOKOnly + vbExclamation, "警告"
                cmdSave.Enabled = False
                Exit Sub
            End If
            mrc.Close
问题又有出来了？

Answer 1

我用vb做的东西怎么一直出现“对象量或with块未设置”？帮看看Private  Sub  Form_Load()  
       Dim  txtSQL  As  String  
       Dim  MsgText  As  String  
       Dim  mrc  As  ADODB.Recordset  
         
       txtSQL  =  "select  distinct  typename  from  roomtype"  
       Set  mrc  =  ExecuteSQL(txtSQL,  MsgText)  
     （  If  Not  mrc.EOF  Then）---------这提示错  
               Do  While  Not  mrc.EOF  
                       Combo1(0).AddItem  mrc.Fields(0)  
                       mrc.MoveNext  
               Loop  
       End  If  
       mrc.Close  
         
       txtSQL  =  "select  distinct  price  from  roomtype"  
       Set  mrc  =  ExecuteSQL(txtSQL,  MsgText)  
       （If  Not  mrc.EOF  Then）  
               Do  While  Not  mrc.EOF  
                       Combo1(1).AddItem  mrc.Fields(0)  
                       Combo1(2).AddItem  mrc.Fields(0)  
                       mrc.MoveNext  
               Loop  
       End  If  
       mrc.Close      
End  Sub    Dim  mrc  As  ADODB.Recordset  
--------------------------  
改为：      Dim  mrc  As  New  ADODB.Recordset 我做了修改又出现上面的问题，帮我看看了。

Answer 2

ExecuteSQL，应该是这个函数出的问题
把ExecuteSQL函数的代码贴出来看看

Answer 3

你可能是在ExecuteSQL函数里把连接Close了，把关闭连接的语句注释掉

Answer 4

你CLOSE了，不要CLOSE，直接重新OPEN