Function CreateDataSource() As ICollection
        Dim dt As New DataTable()
        Dim dr As DataRow
        dt.Columns.Add(New DataColumn("Denominazione", GetType(String)))
        dt.Columns.Add(New DataColumn("Indirizzo", GetType(String)))
        dt.Columns.Add(New DataColumn("Categoria", GetType(String)))
        dt.Columns.Add(New DataColumn("Comune", GetType(String)))
        dt.Columns.Add(New DataColumn("Provincia", GetType(String)))
        dt.Columns.Add(New DataColumn("Presenze", GetType(String)))
        dt.Columns.Add(New DataColumn("Percentuale", GetType(String)))
        dt.Columns.Add(New DataColumn("Totale Imposta", GetType(String)))
        Try
            Dim conString = ConfigurationManager.ConnectionStrings("DB_GESTIONE")
            Dim strConnString As String = conString.ConnectionString
            Using db As New SqlConnection(strConnString)
                db.Open()
                Using sqlcmd As New SqlCommand("imposta", db)
                    sqlcmd.CommandType = CommandType.StoredProcedure
                    sqlcmd.Parameters.AddWithValue("@start", SqlDbType.DateTime).Value = Me.Txt_dal.Text
                    sqlcmd.Parameters.AddWithValue("@end", SqlDbType.DateTime).Value = Me.Txt_al.Text
                    Using sqldr As SqlDataReader = sqlcmd.ExecuteReader
                        While sqldr.Read
                            dr = dt.NewRow()
                            dr(0) = sqldr.GetSqlString(0).Value
                            dr(1) = sqldr.GetSqlString(1).Value
                            dr(2) = sqldr.GetSqlString(2).Value
                            dr(3) = sqldr.GetSqlString(3).Value
                            dr(4) = sqldr.GetSqlString(4).Value
                            dr(5) = sqldr.GetSqlInt32(5).Value
                            dr(6) = sqldr.GetSqlDecimal(6).Value
                            dr(7) = sqldr.GetSqlDecimal(7).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