Question

在VB中运行出现错误,如何知道错误出现在哪里

调试时出现错误停在光标出，如何知道错误出现在哪里
如运行错误时光标停在If rs.RecordCount = 0 Then错误是实时91错误，对象变量未定义或with块变量未设置，但不知如何改，不知错误原因出现在什么地方
Private Sub InitialComboBox(ByVal where As String)
'初始化CboQuery2

Set rs = SelectSQL(where, msg)
If rs.RecordCount = 0 Then
MsgBox ("请先建立相关信息！")
Exit Sub
Else
Do While Not rs.BOF And Not rs.EOF
'添加到ComboBox列表
Me.CboQuery2.AddItem (rs.Fields(0) & rs.Fields(1))
rs.MoveNext '指向下一条记录
Loop
Me.CboQuery2.ListIndex = 0 '默认ComboBox
rs.Close
End If
这段代码有错误码，老是出现实时91错误，对象变量未定义或with块变量未设置
End Sub

Answer 1

页面就有提示的