Private Sub CreateCategoryNodes()

Me.TreeJobTracker.Nodes.Add _
        Relationship:=tvwChild, _
        Relative:=CStr(rst!jpJobNum) & CStr(rst!jaAssemblySeq), _
        Text:="Operations", _
        Key:="Operations"

End Sub

Select all