'QUESTA E' L'EVENTO ONITEMDATABOUND
        If e.Item.ItemType = ListItemType.EditItem Then
            Dim DDLTemp, DDLCatTemp, DDLSottoCatTemp As DropDownList
            DDLTemp = CType(e.Item.FindControl("DDLSupCat"), DropDownList)
            DDLTemp.SelectedIndex = DDLTemp.Items.IndexOf(DDLTemp.Items.FindByText(Sup_Cat_sel))
            ID_sup_cat = DDLTemp.SelectedItem.Value
            lblerrore.Text = ID_sup_cat


            DDLCatTemp = CType(e.Item.FindControl("DDLCat"), DropDownList)
            DDLCatTemp.Items.Add(New ListItem("NESSUNA CATEGORIA", "0"))
        end if

'QUESTO E' L'EVENTO ONEDITCOMMAND
Sub ModificaDataGrid(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
        PopolaDDLSupCat()
        PopolaDDLCat()
        PopolaDDLSottoCat()

        Sup_Cat_sel = CType(e.Item.FindControl("LblSupCat"), Label).Text
        Cat_sel = CType(e.Item.FindControl("LblCat"), Label).Text
        Sotto_Cat_sel = CType(e.Item.FindControl("LblSottoCat"), Label).Text

        DgrArchivio.EditItemIndex = e.Item.ItemIndex
        CaricaDataGrid()

    End Sub

'QUESTA E' LA SUB CHE MI POPOLA LA SECONDA DROPDOWN MA CHE NON RIESCE A RECUPERARE L'ID DELLA PRIMA
Sub PopolaDDLCat()
        Try


            Conn = CType(Session("connessione"), Data.OleDb.OleDbConnection)
            Conn.Open()

            MYSQL = "SELECT *FROM tab_cat WHERE ID_sup_cat = " & ID_sup_cat & " ORDER BY nome_cat ASC"

            MyDs = New DataSet
            MyDa = New Data.OleDb.OleDbDataAdapter(MYSQL, Conn)
            MyDa.Fill(MyDs, "tab_cat")

            MydvCat = New DataView(MyDs.Tables("tab_cat"))

        Catch ex As Exception
            lblerrore.Text = "Errore: " & ex.Message

        Finally
            Conn.Close()

        End Try

    End Sub