If Not mrc.EOF Then问题

Dim i As Integer
Dim j As Integer
Dim sSql As String
Dim txtSQL As String
Dim MsgText As String
Dim mrc As ADODB.Recordset

'初始化物资名称
txtSQL = "select DISTINCT typename from readertype"
Set mrc = ExecuteSQL(txtSQL, MsgText)

If Not mrc.EOF Then

Do While Not mrc.EOF
Combo1.AddItem Trim(mrc.Fields(0))
mrc.MoveNext
Loop
Combo1.ListIndex = 0

Else
MsgBox "请先进行读者种类设置！", vbOKOnly + vbExclamation, "警告"

Exit Sub
End If
mrc.Close
End Sub
运行显示
事实错误 91
对象变量或with块变量未设置
这是什么原因
If Not mrc.EOF Then
这句错误

if.not .eof if not rshyk.eof then Do While Not mrc.EOF（有附加分的哦） vb中mrc.EOF问题 if not rs.eof then什么意思啊？ if not(rs.bof and rs.eof) then VB中的mrc.EOF问题 急急急！！！！ if not rs.eof and not rs.bof then 答的好一定会追加！ if rs.eof then If Not(rs2.eof and rs2.bof) Then……对象关闭时，不允许操作