Private Sub MeniD_AfterUpdate()
Dim Nodx As Node
Dim Rs As Recordset
Dim Indeks As String
Dim Tekst As String
Dim Text_Poz As String
Dim Text_Naz As String
Dim Text_Label As String
Dim Kategorija As Integer ' [b]Dodao sam ovo[/b]
Dim Kom As Integer
Dim SQL As String
Dim ImgI As Integer
Dim Db As Database
Dim Nadredjeni As String

Strojevi Me.MeniD, Me.MeniC
Set Db = CurrentDb

SQL = "SELECT * FROM Q_Indeks ORDER BY Slaganje"
On Error Resume Next

Me.sTREE.SetFocus
Start:
            Set Rs = Db.OpenRecordset(SQL)
            sTREE.Nodes.Clear              
            Rs.MoveFirst
            Nadredjeni = "@" & Rs!Slaganje
            Indeks = "@" & Rs!Slaganje
            Text_Naz = Rs!NAZIV
            Text_Poz = Rs!PozKratica

            Kategorija = Rs!KLASA    '[b]Ovo sam dodao[/b]

            Tekst = Text_Poz & " - " & Text_Naz & " - " & Kategorija
            
        '---------------------------------------
        Do While Not Rs.EOF
        If Nadredjeni = Indeks Then
        Set Nodx = sTREE.Nodes.Add(, , Indeks, Tekst)
        Nodx.Bold = True
        Else
        Nodx.Bold = False
       
        Set Nodx = sTREE.Nodes.Add(Nadredjeni, tvwChild, Indeks, Tekst)
       End If
        ImgI = Val(Rs!KLASA)
        sTREE.Nodes(Indeks).image = ImgI
        Rs.MoveNext
  
        Kom = Rs!Kom
        Text_Naz = Rs!NAZIV
        Text_Poz = Rs!PozKratica

        Kategorija = Rs!KLASA  ' [b]I  ovo sam dodao[/b]

        Tekst = Kom & " x " & Text_Poz & " - " & Text_Naz & " - " & Kategorija
        Indeks = "@" & Rs!Slaganje
        Nadredjeni = Parentni(Rs!Slaganje)
        Loop
Rs.Close
Exit Sub

End Sub