tv.nodes.add , , rod,name

    Dim rst_tv As ADODB.Recordset
    Dim rst_chaild As ADODB.Recordset
    Dim rod As String
    Dim nodx As Node
            
    rod = ""
        
    Set rst_tv = New ADODB.Recordset
    Set rst_chaild = New ADODB.Recordset
    
    rst_tv.Open "SELECT dbo.branches.Branch_code,dbo.branches.branch_short_name " & _
                "FROM dbo.branches " & _
                "ORDER BY dbo.branches.Branch_code ", _
    CnBrnchSprv, adOpenStatic, adLockReadOnly
    
    If Not rst_tv.EOF And Not rst_tv.BOF Then
        rst_tv.MoveFirst
        rst_tv.MoveNext
          
        While Not rst_tv.EOF
            rod = rst_tv!Branch_code
                
             Set nodx = Me.TV_branch.nodes.Add(, , rod, rst_tv!branch_short_name)

            rst_chaild.Open "SELECT dbo.Branch_wins.Branch_code,dbo.Branch_wins.Win_code,dbo.Branch_wins.win_short_name " & _
                            "FROM dbo.Branch_wins " & _
                            "WHERE dbo.Branch_wins.Branch_code=" & rst_tv!Branch_code & " ", _
            CnBrnchSprv, adOpenStatic, adLockReadOnly
            
            If Not rst_chaild.EOF And Not rst_chaild.BOF Then
                rst_chaild.MoveFirst
                While Not rst_chaild.EOF
                    Set nodx = Me.TV_branch.nodes.Add(rod, 1, rst_chaild!win_code, rst_tv!branch_short_name)
                    rst_chaild.MoveNext
                Wend
                
            End If
            
            rst_chaild.Close
            
            rst_tv.MoveNext
        Wend
    
    End If
    
    rst_chaild = noting
    
    rst_tv.Close
    Set rst_tv = Nothing

Rod=rst_tv!Branch_code

Rod="n" & rst_tv!Branch_code