Ciao sto caricando una treeview con ADO ma sono fermo al secondo nodo ...

codice:
Private Sub cForm_EsitoRicerca(xRs As ADODB.Recordset)
On Error Resume Next
Dim nInd As Long
    Dim N As Node
    '**************PRIMO NODO**********************************
    Do While Not xRs.EOF
    'relative = vuoto se principale //
        Set N = trvAlbero.Nodes.Add()
        N.Bold = True
        N.Text = xRs!Gruppo & " - " & xRs!Descrizione
        N.Tag
        nInd = N.Index
    '*****************SECONDO NODO******************************
            Dim cRs As New ADODB.Recordset
            cRs.Open "SELECT * FROM CLASSE WHERE ID_GRUPPO = " & xRs!ID, Cn, adOpenForwardOnly, adLockReadOnly, adCmdText
            Do While Not cRs.EOF
                Set N = trvAlbero.Nodes.Add(nInd, tvwChild)
                N.Text = cRs!Classe & " - " & cRs!Descrizione
    '****************TERZO NODO*********************************
                Dim sRs As New ADODB.Recordset
                sRs.Open "", Cn, adOpenForwardOnly, adLockReadOnly, adCmdText
                Do While Not sRs.EOF
                    'qui cosa scrivo
                    qui volevo caricare un altro sottonodo
                    cioe' quello popolato prima
                sRs.MoveNext
                Loop
            cRs.MoveNext
            Loop
            cRs.Close
            Set cRs = Nothing
    xRs.MoveNext
    Loop
    trvAlbero.BorderStyle = ccFixedSingle
End Sub
In pratica genero un nodo con dei sottonodi, che sono delle child io voerrei che fossero a loro lvolta dei nodi.

Chi mi aiuta?