Function CreateDataSource(ByVal CodiceComune As Integer) As ICollection
        Dim dt As New DataTable()
        Dim dr As DataRow
        dt.Columns.Add("tipo_esenti")
        dt.Columns.Add("desc_esenti")
        Try
            Dim conString = ConfigurationManager.ConnectionStrings("DB_PROVA")
            Dim strConnString As String = conString.ConnectionString
            Using db As New SqlConnection(strConnString)
                db.Open()
                Using sqlcmd As New SqlCommand("Get_tipo_esenzioni", db)
                    sqlcmd.CommandType = CommandType.StoredProcedure
                    sqlcmd.Parameters.AddWithValue("@CodComune", SqlDbType.Int).Value = CodiceComune
                    Using sqldr As SqlDataReader = sqlcmd.ExecuteReader
                        While sqldr.Read
                            dr = dt.NewRow()
                            dr(0) = sqldr.GetSqlValue(0).Value
                            dr(1) = sqldr.GetSqlValue(1).Value
                            dt.Rows.Add(dr)
                        End While
                    End Using
                End Using
            End Using
            Dim dv As New DataView(dt)
            Return dv
        Catch ex As SqlException
            Page.RegisterStartupScript("ScriptDescription", "<script type=""text/javascript"">alert('" & ex.Message & "');</script>")
        Catch ex As Exception
            Page.RegisterStartupScript("ScriptDescription", "<script type=""text/javascript"">alert('" & ex.Message & "');</script>")
        End Try
    End Function 'CreateDataSource