Exporting GridView Data into Excel

[ThomasM]

Can someone tell me what I am missing. I am trying to export the data from a Gridview into Excel . I am not getting any errors when doing so but no data is showing up in excel when you click open or save.
Any help would be much appricated.
T
Protected
Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If IsPostBack Then GridView1.DataBind()

End If
End Sub
Protected Sub bSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bSubmit.Click
Dim myConnection As SqlConnection
Dim myCommand As SqlDataAdapter
Dim i As Integer bSubmit.Enabled =
False GridView1.Visible =
True myConnection =
New SqlConnection("Server=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|CustomerInfo.mdf;Integrated Security=True;User Instance=True")
myCommand = New SqlDataAdapter("SELECT [WorkSheetID], [DealerName], [DateCreated], [SalesRep], [FirstName], [LastName] FROM [CustomerTable]", myConnection)
' Create and fill a DataSet.
Dim ds As DataSet = New DataSet() myCommand.Fill(ds)
GridView1.DataSource = ds
GridView1.DataBind()
lblResults.Text =
"Query Results" & " (Number of Records found = " & GridView1.Rows.Count & ")"
End Sub Protected Sub bExporttoExcel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bExporttoExcel.Click
Response.Clear()
Response.AddHeader("content-disposition", "attachment;filename=QueryResults.xls")
Response.Charset = ""
Response.ContentType =
"application/vnd.xls"
Dim sw As StringWriter = New StringWriter()
Dim htw As HtmlTextWriter = New HtmlTextWriter(sw) GridView1.RenderControl(htw)
Response.Write(sw.ToString())
Response.End()

End Sub
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As System.Web.UI.Control)
End Sub