VB6.0编译时出现 对象'Refresh'的方法'IAdodc'解决方案

VB6.0编译时出现 对象'Refresh'的方法'IAdodc'
Private Sub TreeView1_Click()
  Dim Focuskey As String
  '根据关键字获取部门信息
  Focuskey = TreeView1.SelectedItem.Key
  CurDepart.Depart_Name = TreeView1.SelectedItem.Text
  CurDepart.Depart_Id = Val(Right(TreeView1.SelectedItem.Key, Len(TreeView1.SelectedItem.Key) - 1))
   
  If Focuskey = "a0" Then '根结点

  AdoStaffNameList.RecordSource = "SELECT * FROM Staff WHERE Depart_Id<0"
  AdoStaffNameList.Refresh DataList1.ReFill
  Exit Sub
  End If 
注：数据库是连接了的，表名也正确

------解决方案--------------------
没有控件与adodc相连或绑定