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")
        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)
                            End If
                        End While
                    End Using
                End Using
            End Using
            Dim dvA As New DataView(dtA)
            Return dvA
        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()
    End Sub