VB6.0实时错误'424' 要求对象,怎么解决?

Private Sub TreeView1_Click()
  Dim Focuskey As String
  '根据关键字获取院系班级信息
  Focuskey = TreeView1.SelectedItem.Key
  CurClass.Class_Name = TreeView1.SelectedItem.Text
  CurClass.Class_Id = Val(Right(TreeView1.SelectedItem.Key, Len(TreeView1.SelectedItem.Key) - 1))
  
  If Focuskey = "a0" Then '根结点
    AdoStuNameList.RecordSource = "SELECT * FROM Students WHERE Class_Id<0"
    AdoStuNameList.Refresh
    DataList1.ReFill
    Exit Sub
  End If
  '如果包含子结点，则设置图像格式
  If CurClass.HaveSon(CurClass.Class_Id) = False Then
    TreeView1.SelectedItem.ExpandedImage = 4
    TreeView1.SelectedItem.Image = 4
    TreeView1.SelectedItem.SelectedImage = 5
  End If
  '读取CurClass中的所有院系班级信息
  CurClass.GetInfo (CurClass.Class_Id)
  '根据选择的院系班级编号刷新AdoStuNameList1，从而选择符合条件的学生姓名
  AdoStuNameList.RecordSource = "SELECT Student_Id, Student_Name FROM Students WHERE Class_Id=" _
        + Trim(Str(CurClass.Class_Id))
  AdoStuNameList.Refresh
  DataList1.ReFill
  DataList1_Click
End SubPrivate Sub DataList1_Click()
  '如果没有选择学生,则对MyStu对象初始化,然后返回
  If DataList1.BoundText = "" Then
    MyStu.Init
    Exit Sub
  End If
  '读取当前学生信息到MyStu
  MyStu.GetInfo (DataList1.BoundText)
End Sub
Private Sub Command1_Click()
  '如果没有选择学生,则提示重新选择
  If MyStu.Student_Id <= 0 Then
    MsgBox "请选择学生"
    Exit Sub
  End If
  '将选择学生的数据保存在SelStu变量中
  SelStu.Student_Id = MyStu.Student_Id
  SelStu.GetInfo (SelStu.Student_Id)
  Unload Me
End Sub以上代码,调试时是AdoStuNameList.RecordSource = "SELECT * FROM Students WHERE Class_Id<0"这个代码错误.