Dim conn As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename='C:\Documents and Settings\Balacche\Documenti\Visual Studio 2010\WebSites\ProveVarie\App_Data\Database.mdf';Integrated Security=True;User Instance=True")
        Dim cmd As New SqlCommand("SELECT Nome, Cognome, Citta FROM Anagrafica", conn)

        Dim connE As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strfullpathname & ";Extended Properties='Excel 8.0;HDR=Yes';")
        Dim cmdE As New OleDbCommand()
        cmdE.Connection = connE

        conn.Open()
        connE.Open()

        'qui crei un nuovo foglio di lavoro
        cmdE.CommandText = "CREATE TABLE FoglioTest (Nome char(25), Cognome char(25), Citta char(25))"
        cmdE.ExecuteNonQuery()

        'prepari la query di inserimento
        cmdE.CommandText = "INSERT INTO FoglioTest (Nome, Cognome, Citta) values (?, ?, ?)"
        cmdE.Parameters.Add("@Nome", OleDbType.Char)
        cmdE.Parameters.Add("@Cognome", OleDbType.Char)
        cmdE.Parameters.Add("@Citta", OleDbType.Char)

        Dim dr As SqlDataReader = cmd.ExecuteReader
        While dr.Read
            'inserisci i dati riga dopo riga
            cmdE.Parameters(0).Value = dr(0).ToString
            cmdE.Parameters(1).Value = dr(1).ToString
            cmdE.Parameters(2).Value = dr(2).ToString
            cmdE.ExecuteNonQuery()
        End While

        connE.Close()
        conn.Close()
        conn.Dispose()
        connE.Dispose()

        Response.Clear()
        Response.ContentType = "application/vnd.ms-excel"
        Response.AppendHeader("Content-Disposition", String.Format("attachment; filename={0}_{1}.xls; creation-date='{2}'", strfullpathname, DateTime.Now.ToShortDateString().Replace("/", "-"), DateTime.Now.ToString()))
        Response.Charset = "utf-8"
        Response.AppendHeader("pragma", "no-cache")
        Response.Buffer = True
        Response.Expires = -1

        Response.Write(tw.ToString())
        Response.Flush()
        Response.[End]()