If Not dsCessioni Is Nothing Then
            i = 0
            ' Inserimento nel menù Cessioni della lista recuperata
            Do
                CessioniChild = Me.mnuCessioni.MenuItems.Add(dsCessioni.Tables(0).Rows(i)("descrizione"))
                CessioniChild.Index = i
                AddHandler CessioniChild.Click, AddressOf CessioniChild_Click
                i = i + 1
            Loop While i <> dsCessioni.Tables(0).Rows.Count