Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim path As String = Server.MapPath("Export\MyTest.csv")

        Dim sw As StreamWriter = File.CreateText(path)

        Dim strConnection As String = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" + MapPath("App_Data\nome_database_access.mdb")

        Dim strSQL As String = "SELECT * FROM [nome_tabella]"
        Dim strResultsHolder As String = ""
        Dim objConnection As OleDbConnection = New OleDbConnection(strConnection)
        Dim objCommand As OleDbCommand = New OleDbCommand(strSQL, objConnection)
        Dim objDataReader As OleDbDataReader = Nothing
        Try
            objConnection.Open()
            con_open.Text = "Connection opened successfully.<br>"
            objDataReader = objCommand.ExecuteReader

            While (objDataReader.Read = True)

                'Questa parte serve per scrivere su divList il risultato
                strResultsHolder = (strResultsHolder + objDataReader("nome_colonna_1"))
                strResultsHolder = (strResultsHolder + " ")
                strResultsHolder = (strResultsHolder + objDataReader("nome_colonna_2"))
                strResultsHolder = (strResultsHolder + "<br/>")

                'Questo per scrivere sul file
                sw.WriteLine(objDataReader("nome_colonna_1") + ", " + objDataReader("nome_colonna_2"))

            End While

            sw.Flush()
            sw.Close()

            objDataReader.Close()
            objConnection.Close()
            con_close.Text = "<br/>Connection closed.<br/>"
            divList.InnerHtml = strResultsHolder

        Catch ex As Exception
            con_open.Text = "Connection failed to open successfully.<br/>"
            con_close.Text = e.ToString
        End Try

        'End If
    End Sub