Dim attachment As String = "attachment; filename=file.doc"
        Response.ClearContent()
        Response.AddHeader("content-disposition", attachment)
        Response.ContentType = "application/vnd.msword"
        Response.ContentEncoding = System.Text.Encoding.UTF8
        Response.Charset = "UTF-8"
        Dim sw As New System.IO.StringWriter()
        Dim htw As New HtmlTextWriter(sw)
        Dim frm As New HtmlForm()
        GridView1.Parent.Controls.Add(frm)
        frm.Attributes("runat") = "server"
        frm.Controls.Add(GridView1)
        frm.RenderControl(htw)
        Response.Write(sw.ToString())
        Response.[End]()