我运行VB程序时出现实时错误‘91’ 对象变量或with块变量未设置

Private Sub CmdDelete_Click() '删除图书类别信息
rs1.Open "select * from tslbb where 类别名称='" + Text1(3).text + "'order by 类别编号", Cnn, adOpenKeyset, adLockOptimistic
With rs1
If .RecordCount > 0 Then
a = MsgBox("您确实要删除这条数据吗?", vbYesNo)
If a = vbYes Then
.Delete '删除记录
.Update '更新记录
For i = 1 To 3
Text1(i).text = Adodc1.Recordset.Fields(i) '将字段值赋给Text1控件数组
Next i
Combo1.text = Adodc1.Recordset.Fields("级别")
'设置按钮有效或无效
CmdSave.Enabled = False
CmdEsc.Enabled = False
CmdAdd.Enabled = True
CmdDelete.Enabled = True
End If
Else
MsgBox ("没有要删除的数据！")
End If
End With
rs1.Close
TreeView1.Nodes.Clear '清空TreeView中的数据
Call Tree_change '调用过程
End Sub

运行

我运行VB程序时出现实时错误‘91’ 对象变量或with块变量未设置 我运行程序时出现这种错误怎么解决？ 我在运行程序时老是出现如下错误~~~~~~~~~~~~~~~~~~~~~~~~ vb 实时错误91 VB实时错误‘91’ VB实时错误‘3705’ VB实时错误‘380’ VB 实时错误 424 vb 实时错误5 vb实时错误3705