91 对象变量或 With 块变量未设置 怎么解决啊?我的代码如下:

Question

Private Sub Form_Load()
Dim rst As ADODB.Recordset
Dim strItem As String
'If Index = 0 Then
 sqlstr = " select 院代码. 院名称 from 院信息表 order by 院代码"
 Set rst = selectsql(sqlstr)
If rst.RecordCount > 0 Then
 Do While Not rst.EOF
     strItem = rst.Fields(0) & "" & rst.Fields(1)
     CboQuery.AddItem (strItem)
      rst.MoveNext
      
    Loop
      rst.Close
      CboQuery.ListIndex = 0
    
     
 Else
  MsgBox ("请先键入院信息")
  Frame1.Enabled = False
  Frame2.Enabled = False
Exit Sub
End If
    Call loaddata
    
 
 
 
 'For Index = 0 To 6
 ' TxtItem(Index).Enabled = False
 '  Next Index
 'Call loaddata
  If rs.RecordCount > 0 Then
Call showdata
   Else
 For Index = 0 To 3
    CmdMove(Index).Enabled = False
  Next Index
 End If
  End Sub

Answer 1

If rst.RecordCount > 0 Then 这一句啊```搞的我都崩溃去``

Answer 2

你把ado引用进来了吗？reference 需要引用 microsoft activex data objects 2.0-2.8 library

Answer 3

Dim rst As ADODB.Recordset 改成
Dim rst As NEW ADODB.Recordset 
用完记着rst.close
set rs=nothing

Answer 4

已经引进来啦··是在部件里的ADODB嘛··可是，每次都说“对象变量或者块未定义”。。无语啊··呵呵

Answer 5

问题可能在selectsql这个函数中，要看看你这个函数的代码...