很奇怪的问题，帮忙啊！

Question

我在建立根节点的时候用的是这样的代码
Private Sub Form_Load()
    Dim NodX As Node
    Do While Data1.Recordset.EOF
        Set NodX = TreeView1.Nodes.Add(, , Chr(Data1.Recordset.Fields("编号1").Value), Data1.Recordset.Fields("公司").Value)
        NodX.Tag = Data1.Recordset.Fields("编号1")
        Data1.Recordset.MoveNext
    Loop
End Sub
系统老是报错“错误91，对象变量或with块变量未设置”
我明明把data控件设定好了，数据库也绑定正确，真是奇怪啊！
我用的DATA控件

Answer 1

将你的Data1 控件的 RecordSource 属性设置一下,选择相应的表名就可以了!!

Answer 2

不可能,我已经试了,如果不设置跟你说的错误一样,如果设置了之后就不会出错了.
另外:Do While Not Data1.Recordset.EOF '应该加上NOT,否则循环不执行~~

Answer 3

我加上NOT以后报错就变成“要求对象”了

Answer 4

还是一样的错误
我数据库是ACCESS2000，名称是department.mdb
表名是NodeRelation 字段是：公司、部门、工作组、编号1（公司KEY）、编号2（部门KEY）、编号3（工作组KEY）
ODBC的DSN是 depart
data1.databasename="E:\实验\department.mdb"
data1.RecordSource="NodeRelation"
这样设置应该没有问题吧！
但是还是报同样的错误！