Vb-export the content in DataTable to EXCEL

Private Sub toExcel () Sub toExcel (ByVal tb As DataTable)
Dim dgrid As System. Web. UI. WebControls. DataGrid = Nothing
Dim context As System. Web. HttpContext = System. Web. HttpContext. Current
Dim strOur As System. IO. StringWriter = Nothing
Dim htmlWriter As System. Web. UI. HtmlTextWriter = Nothing
If Not IsNothing (tb) Then
Context. Response. ContentType = "application/vnd. ms-excel"
Context. Response. ContentEncoding = System. Text. Encoding. UTF8
Context. Response. Charset = ""

StrOur = New IO. StringWriter
HtmlWriter = New System. Web. UI. HtmlTextWriter (strOur)
Dgrid = New DataGrid
Dgrid. DataSource = tb. DefaultView
Dgrid. AllowPaging = False
Dgrid. DataBind ()

Dgrid. RenderControl (htmlWriter)
Context. Response. Write (strOur. ToString)
Context. Response. End ()
End If
End Sub () Sub