Noeud dans un treeview

Bonjour à tous,

J'ai une petite demande de dev à faire et seulement toute cette demande est finie sauf un dernier composant que j'arrive pas à magner c'est le treeview

Actuellement j'ai une arborescence à faire de ce style

GroupMcu 1
.......|_______Mcu de groupmcu1

GroupMcu 2
.......|_______Mcu de groupmcu2

Seulement mon code ne fait pas du tout ce genre de procédé.

  Sql = "SELECT GroupMcuCode,GroupMCUName, MCUName FROM " & base & ".T_MCU, " & base & ".T_GroupMCU WHERE T_MCU.MCUGroupCode = T_GroupMCU.GroupMcuCode ORDER BY GroupMcuName ASC"
    Indiceconnection = Fct_RechercheConnection(CustURL)
 
    Index = 0
Set ObjAdoDri = TabCustUrl(Indiceconnection).ObjAdoCust.Execute(Sql)
 
 
WhileNot ObjAdoDri.EOF
        GroupMcuNew = ObjAdoDri!GroupMcuName
If GroupMcu = GroupMcuNew Then
Set NodeX = tvMCU.Nodes.Add(1, tvwChild, , ObjAdoDri!MCUName)
Else
Set NodeX = tvMCU.Nodes.Add(, , , ObjAdoDri!GroupMcuName)
EndIf

        GroupMcu = GroupMcuNew
        ObjAdoDri.MoveNext

Wend

Merci d'avance

_______________________
<<<< :-: 4L!@$ :-: >>>>

Personne n'a une idée...

Actuellement le "mieux" que j'ai pu faire c'est :

GroupMcu1
.....|___Mcu1Group1
.....|___Mcu1Group1
.....|___Mcu1Group2
.....|___Mcu2Group2
.....|___Mcu1Group3
GroupMcu2
GroupMcu3


    Sql = "SELECT GroupMcuCode,GroupMCUName, MCUName FROM " & base & ".T_MCU, " & base & ".T_GroupMCU WHERE T_MCU.MCUGroupCode = T_GroupMCU.GroupMcuCode ORDER BY GroupMcuName ASC"
    Indiceconnection = Fct_RechercheConnection(CustURL)

    Set ObjAdoDri = TabCustUrl(Indiceconnection).ObjAdoCust.Execute(Sql)


    While Not ObjAdoDri.EOF
   
        GroupMcuNew = ObjAdoDri!GroupMcuName
       
        If GroupMcu = GroupMcuNew Then
            'Création d'un Mcu
            Set NodeX = tvMCU.Nodes.Add(1, tvwChild, , ObjAdoDri!MCUName)
        Else
            'Création d'un Groupe
            Set NodeX = tvMCU.Nodes.Add(, , , ObjAdoDri!GroupMcuName)
           
            Set NodeX = tvMCU.Nodes.Add(1, tvwChild, , ObjAdoDri!MCUName)
        End If
       
        GroupMcu = GroupMcuNew
        ObjAdoDri.MoveNext
        DoEvents
    Wend

_______________________
<<<< :-: 4L!@$ :-: >>>>