求ACCESS结构树制作的教程

一看就会的TreeView：

dim tree as treeview
dim n as node
set tree=me.treeview0.object
set n=tree.nodes.add(,,"a0","人物")
n.Expanded = True
set n=tree.nodes.add("a0",tvwChild,"b1","美女")
n.Expanded = True
set n=tree.nodes.add("a0",tvwChild,"b2","野兽")
n.Expanded = True
set n=tree.nodes.add("b1",tvwChild,"c1","范冰冰")
set n=tree.nodes.add("b1",tvwChild,"c2","章子怡")
set n=tree.nodes.add("b1",tvwChild,"c3","王菲")
set n=tree.nodes.add("b2",tvwChild,"c4","雷政富")
set n=tree.nodes.add("b2",tvwChild,"c5","刘志军")
set n=tree.nodes.add("b2",tvwChild,"c6","***")