Exportar datos de un Datagrid a Excel

[Mickel]

Código:

        Dim tw As New System.IO.StringWriter
        Dim hw As New System.Web.UI.HtmlTextWriter(tw)
            Response.ContentType = "application/vnd.ms-excel"
            Response.ContentEncoding = System.Text.ASCIIEncoding.UTF7
            Response.Charset = "iso-8859-1"
            Me.EnableViewState = False
            'opcional si es que requiero repoblar la datagrid
            dgr_Cuadro.PageSize = 'numero de registros del datasource.
            adt_Main = 'datasource nuevo
            dgr_Cuadro.DataSource = adt_Main
            'fin de la parte opcional
            dgr_Cuadro.CurrentPageIndex = 0
            dgr_Cuadro.DataBind()
            dgr_Cuadro.RenderControl(hw)
            Response.Write(tw.ToString())
            Response.End()