Sub RipopolaDDLSup(ByVal sender As Object, ByVal e As System.EventArgs)

        Dim TempDDLSup As DropDownList
        Dim IdTempDDLSup As Integer

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

        TempDDLSup = CType(DgrRicerca.Items.Item(DgrRicerca.EditItemIndex).FindControl("DDLSupCat"), DropDownList)
        IdTempDDLSup = CType(DgrRicerca.Items.Item(DgrRicerca.EditItemIndex).DataItem("tab_sup_cat.ID_sup_cat"), Int32)
        TempDDLSup.SelectedIndex = TempDDLSup.Items.IndexOf(TempDDLSup.Items.FindByValue(IdTempDDLSup))


    End Sub