Function CreateDataSourceImposta(ByVal codalbergo As Integer, ByVal da As Date, ByVal a As Date) As ICollection
        Dim dt As New DataTable()
        Dim dr As DataRow
        dt.Columns.Add("data_arrivo")
        dt.Columns.Add("data_partenza")
        dt.Columns.Add("tipo_cliente")
        dt.Columns.Add("tipo_esenzione")
        dt.Columns.Add("presenze")
        dt.Columns.Add("imposta_dovuta")
        Try
            Dim conString = ConfigurationManager.ConnectionStrings("DB_GESTIONE_ALBERGHI")
            Dim strConnString As String = conString.ConnectionString
            Using db As New SqlConnection(strConnString)
                db.Open()
                Using sqlcmd As New SqlCommand("imposta_soggiorno", db)
                    sqlcmd.CommandType = CommandType.StoredProcedure
                    sqlcmd.Parameters.AddWithValue("@codalbergo", SqlDbType.DateTime).Value = codalbergo
                    sqlcmd.Parameters.AddWithValue("@start", SqlDbType.DateTime).Value = da
                    sqlcmd.Parameters.AddWithValue("@end", SqlDbType.DateTime).Value = a
                    Using sqldr As SqlDataReader = sqlcmd.ExecuteReader
                        While sqldr.Read
                            dr = dt.NewRow()
                            dr(0) = sqldr.GetSqlValue(0).Value
                            dr(1) = sqldr.GetSqlValue(1).Value
                            dr(2) = sqldr.GetSqlValue(2).Value
                            dr(3) = sqldr.GetSqlValue(5).Value
                            dr(4) = sqldr.GetSqlValue(6).Value
                            dr(5) = sqldr.GetSqlValue(7).Value
                            dr(6) = sqldr.GetSqlValue(8).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