Access TreeView tree Node Code two

Private Sub Form_Load ()
' Quote C:\windows\system32\MSCOMCTL. OCX, otherwise prompt error.
Dim Rec as New ADODB. Recordset
Dim STRECQL as String
Dim Item as Integer
Dim I as Integer
Dim Node1 as Node
Rec.open "Goodscategoryq", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 0 to Rec.recordcount-1
If rec! p_id = "S0000" Then
Set Node1 = Me.TreeView0.Nodes.Add (,, "S" & rec! C_ID, rec! Categorylabel)
Else
Set Node1 = TreeView0.Nodes.Add ("S" & rec! P_ID, Tvwchild, "S" & rec! C_ID, rec! Categorylabel)
' Node1.index = True
End If
Rec.movenext
Next
Rec.close
End Sub

Private Sub Treeview0_nodeclick (ByVal Node as Object)
Me.L_Self.Caption = CStr (TreeView0.SelectedItem.index)
End Sub

Access TreeView tree Node Code two