求助---下面这段代码问题出在哪？（树控件加access数据库）

Question

  sql = "select * from A_jie"
      bs.Open sql, rs, 1
    If bs.RecordCount <> 0 Then
    For i = 1 To TreeView1.Nodes.Count      
    KQ = TreeView1.Nodes(i).Key '当前根节点的id
    Set Dqgjd = TreeView1.Nodes(i) '当前根节点的id
     bs.MoveFirst
       Do While bs.EOF = False
   If "KQ" & bs.Fields("A_zhangid").Value = KQ Then '如果当前根节点的id=当前表中的值
   Set nodX = TreeView1.Nodes.Add(Dqgjd, tvwChild, "XL" & bs.Fields("ID").Value, bs.Fields("djj").Value, 2)老在这Set Dqgjd =出现要求对象的错误
 这只是一部分代码

Answer 1

http://download.csdn.net/source/1644211

Answer 2

TRY:
Dim Dqgjd as Node
Dim nodX  as Node