Function CreateDataSource() As ICollection
        REM DATATABLE ARRIVI
        Dim dtA As New DataTable()
        Dim drA As DataRow
        dtA.Columns.Add("n_arrivi")
        dtA.Columns.Add("data_arrivo")
        dtA.Columns.Add("nazione")
        dtA.Columns.Add("provincia")
        REM DATATABLE PARTENZE
        Dim dtP As New DataTable()
        Dim drP As DataRow
        dtP.Columns.Add("n_arrivi")
        dtP.Columns.Add("data_arrivo")
        dtP.Columns.Add("nazione")
        dtP.Columns.Add("provincia")
        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("Read_import_c59", db)
                    sqlcmd.CommandType = CommandType.StoredProcedure
                    sqlcmd.Parameters.AddWithValue("@codicealbergo", SqlDbType.Int).Value = 71
                    sqlcmd.Parameters.AddWithValue("@FromData", SqlDbType.DateTime).Value = CDate("30/03/2012")
                    sqlcmd.Parameters.AddWithValue("@ToData", SqlDbType.DateTime).Value = CDate("30/04/2012")
                    Using sqldr As SqlDataReader = sqlcmd.ExecuteReader
                        While sqldr.Read
                            If sqldr.GetSqlValue(4).Value = "A" Then
                                drA = dtA.NewRow()
                                drA(0) = sqldr.GetSqlValue(0).Value
                                drA(1) = CDate(sqldr.GetSqlValue(1).Value).ToShortDateString
                                drA(2) = sqldr.GetSqlValue(2).Value
                                drA(3) = sqldr.GetSqlValue(3).Value
                                dtA.Rows.Add(drA)
                            Else
                                drP = dtA.NewRow()
                                drP(0) = sqldr.GetSqlValue(0).Value
                                drP(1) = CDate(sqldr.GetSqlValue(1).Value).ToShortDateString
                                drP(2) = sqldr.GetSqlValue(2).Value
                                drP(3) = sqldr.GetSqlValue(3).Value
                                dtP.Rows.Add(drP)
                            End If
                        End While
                    End Using
                End Using
            End Using
            Dim dvA As New DataView(dtA)
            Return dvA
            Dim dvP As New DataView(dtP)
            Return dvP
        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

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
         Me.GridView1.DataSource = CreateDataSource()
        Me.GridView1.DataBind()
        Me.GridView2.DataSource = CreateDataSource()
        Me.GridView2.DataBind()
    End Sub