因为没有上传你的库，给你一个函数，放在模块中，函数中用到了一个项目表，里面三个字段，调用时，只要改动SQL语句，加上where字句就可以实现选择性的添加到树里，就可以了，可以参考一下。
Public Function addTreeView(ObjTr As Object,rootText as string)
Dim ObjTree As Object
Dim objNode As Object
Dim rst As Object
Dim strParentID As String
Dim strSQL As String
Set ObjTree = ObjTr
ObjTree.Nodes.Clear
Set objNode = ObjTree.Nodes.Add(, , "K", rootText, 1, 2)
Set rst = CurrentDb.OpenRecordset("SELECT * FROM category_tabl ORDER BY categoryNumber", , dbReadOnly)
Do Until rst.EOF
Set objNode = ObjTree.Nodes.Add("K" & rst!categoryLevel, tvwChild, "K" & rst!categoryNumber, rst!CategoryName, 1, 2)
rst.MoveNext
Loop
ObjTree.Nodes(1).Expanded = True
rst.Close
Set rst = Nothing
Set ObjTree = Nothing
Set objNode = Nothing
End Function
