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

Question

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 
注：数据库是连接了的，表名也正确

Answer 1

我绑定了DATAGRID呀，也还是不行的呢！