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

1，确定是否连上数据库
2，确定SQL语句中的表名与字段名是否正确

Answer 2

set AdoStaffNameList.DataSource = "SELECT * FROM Staff WHERE Depart_Id<0"

Answer 3

1.如何测试是否连上了数据库？
2.表名及字段名正确
3.是否要将语句 AdoStaffNameList.RecordSource = "SELECT * FROM Staff WHERE Depart_Id<0"
更改为类似下面的语句，若要改如何改？
Adodc1.RecordSource = "select * from FMECA where (FMECA." & Combo1.Text & " like + '" + Text1.Text + "'+'%')"
注：因为没学过VB但又急着要做数据库系统，所以很多疑问，十分感谢解答者