treeview子节点添加问题，高手请指教

Question

学习VB遇到在添加子节点时，运行出现“集合中找不到此项目”请问：如何根据两表之间关系自动添加相关子节点，
以下是我用VB自带的NWIND数据库作的实例请教问题出在什么地方，谢谢
Dim CNN As Database, RS As Recordset, TS As Recordset
Private Sub Form_Load()
    Set CNN = OpenDatabase("C:\Program Files\Microsoft Visual Studio\VB98\nwind.mdb")
    Set RS = CNN.OpenRecordset("select * from Categories", dbOpenSnapshot)
   
    Set TS = CNN.OpenRecordset("select * from Products", dbOpenSnapshot)
    
    
    Do While Not RS.EOF
        TreeView1.Nodes.Add , , "cat" & RS("categoryname"), RS("categoryname")
        RS.MoveNext
                
    Loop
'
    Do While Not TS.EOF
        TreeView1.Nodes.Add "cat" & TS("category"), tvwChild, "nn" & TS("productid"), TS("productsname")
        TS.MoveNext
    Loop    
End Sub

Answer 1

Dim CNN As Database, RS As Recordset, TS As RecordsetPrivate Sub Form_Load()
    Set CNN = OpenDatabase("d:\Program Files\Microsoft Visual Studio\VB98\nwind.mdb")
    Set RS = CNN.OpenRecordset("select * from Categories", dbOpenSnapshot)
    Set TS = CNN.OpenRecordset("select * from Products", dbOpenSnapshot)
    
    Do While Not RS.EOF
        TreeView1.Nodes.Add , , "cat" & RS("CategoryID"), RS("categoryname")
        RS.MoveNext
    Loop    Do While Not TS.EOF
        TreeView1.Nodes.Add "cat" & TS("CategoryID"), tvwChild, "nn" & TS("ProductID"), TS("ProductName")
        TS.MoveNext
    Loop
    TS.Close
    RS.Close
End Sub

Answer 2

还有个问题，我看PRODUCT基本表中并没有CategoryID这个项目，而添加子节点时如何还要用上TS("CategoryID"), 我的代码是在书上看的，不怎么理解