Private Sub Form_Load()
    Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb;Persist Security Info=False"
    Cnn.Open
    Set Nodx = TreeView1.Nodes.Add()
    Nodx.Text = "查询项目"
    Set Nodx = TreeView1.Nodes.Add(1, tvwChild, "字典", "字典")
    Set Nodx = TreeView1.Nodes.Add(1, tvwChild, "数组", "数组")
    Set Nodx = TreeView1.Nodes.Add(1, tvwChild, "网抓", "网抓")
    Rs.Open "select * from 字典,数组,网抓", Cnn, 3, 2
    Rs.Close
    Set Rs = Nothing
    Cnn.Close
    Set Cnn = Nothing
End Sub
如何将上面查询到的数据一次性加载，现在只显示
查询数据
*******字典
*******数组
*******网抓
但没有其他数据，还要另外操作才可以加载。
这种情况如何处理？谢谢！
如何用：
    Do While Not Rs.EOF
        Set Nodx = TreeView1.Nodes.Add(  , tvwChild)
        Nodx.Text = Rs!名称
        Rs.MoveNext
    Loop
加载进内容

[此贴子已经被作者于2018-12-17 17:20编辑过]

非常感谢，确实向你说的，有两种情况，朋友提供的是数据库1，我实在不会，就给整理了一下数组 表，变成了现在的数据库2，烦请指点一下，谢谢！先按数据库2来吧，当然如果方面能否两种都说一下就更好了。学习阶段想多学点。

[此贴子已经被作者于2018-12-17 19:49编辑过]

谢谢版主！你这种方法也挺好，一目了然，都在一个表中。
但是还有其他功能，能按分开的表（数据库1和数据库2）写吗？因为原始表中的数据量也不小。麻烦了

版主，如果太费事就不写那个了，把这个源文件给一下，我参考着再学习。

谢谢！学习了。下面附件中当点击字典、数组、网抓三个节点时，能够分别加载数据，但有点问题：每次点击时都会加载一次，造成重复加载（没有找到解决方法）。
另外，代码字段是备注型的，但不用作为对象使用，只是调用。
麻烦您再给看看。

谢谢，弄好了。