Question

在vb中运行程序出现实时错误‘91’，对象变量或with快变量未设置，怎么调试啊

Private Sub Form_Load()
Set myModiStudent = New OpenRs
myModiStudent.rsDK2 ("select * from schoolgrade_info") ' 生成年级信息记录集
While myModiStudent.rs2.EOF = False
cboGrade.AddItem (myModiStudent.rs2!grade_name)
myModiStudent.rs2.MoveNext
Wend
StudentGrid.FormatString = " |学号|姓名|性别|出生日期|班号|联系电话|入校时间|家庭住址|注释"
myModiStudent.rsDK1 "SELECT * FROM student_info"
If Not myModiStudent.rs1.EOF Then
Set StudentGrid.DataSource = myModiStudent.rs1--这一句就是显示出错，颜色为黄色
StudentGrid.FormatString = " |学号|姓名|性别|出生日期|班号|联系电话|入校时间| 家庭住址|注释"
End If
End Sub

Answer 1

myModiStudent.rs1确实没设置啊，哪句设置了？

追问

Option Explicit
Dim myModiStudent As OpenRs
Dim Change As Boolean

有一个类模块叫 0penRs.cls

追答

'菜单"工程"->"引用" 找 Microsoft ActiveX Data Object....

追问

之前就已经引用了的

追答

myModiStudent.rs1确实没设置
你上面只有声明，没有设置

追问

那怎么设置啊

追答

myModiStudent.rsDK1 "SELECT * FROM student_info"
改为
myModiStudent.rs1 "SELECT * FROM student_info"

追问

还是不行啊
我是个新手，都是根据书上来做的，就是调不通

Answer 2

Set StudentGrid.DataSource 改 StudentGrid.DataSource

追问

改了，不行
还是那个地方 显示实时错误‘13’