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

Question

我用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 
想问是不是数据库没有连好出的问题？

Answer 1

Dim mrc As ADODB.Recordset
--------------------------
改为：   Dim mrc As New ADODB.Recordset

Answer 2

ExecuteSQL是你自己写的FUNCTION吧，没正确返回记录集的话，你的SET MRC=ExecuteSQL（）就没有使MRC实例化，当然就会有下面的错误了。