Dim con As New SqlConnection(connection_string)
            Dim sqlquery As String = ""
            con.Open()
 
 
                   Dim dataExport As String = ""
 
            'File.Create(fpath)
 
            Dim cmd As New SqlCommand("Select * From company_profile Where serial_no = '" & TextBox1.Text & "'", con)
            Dim str As New StringBuilder
            Dim da As New SqlDataAdapter(cmd)
            Dim ds As New DataSet
            Dim dt As New DataTable
            'Dim firstRecord As Boolean = True
            Dim cb As New SqlCommandBuilder(da)
 
            da.Fill(ds)
            ds.Tables(0).Rows(0).Item(0) = TextBox1.Text
            ds.Tables(0).Rows(0).Item(1) = TextBox2.Text
            ds.Tables(0).Rows(0).Item(2) = TextBox6.Text
            ds.Tables(0).Rows(0).Item(3) = TextBox7.Text
            ds.Tables(0).Rows(0).Item(4) = DateTime.Now.ToString
            ds.Tables(0).Rows(0).Item(5) = DateTime.Now.ToString
 
            '''''''''''Exporting data from GridView to CSV File'''''''''''''''''
            GridView1.DataSource = ds.Tables(0)
            GridView1.DataBind()
 
            GridView1.AutoGenerateColumns = True
 
            GridView1.Enabled = True
            GridView1.Visible = True
 
            'Extracting Column heading for Header Field
            For Each dc As DataGridColumn In GridView1.Columns
                dataExport = dataExport & dc.HeaderText
            Next
 
            dataExport = Environment.NewLine.ToString()
 
            For Each drow As GridViewRow In GridView1.Rows
 
                For Each dcell As GridViewSelectEventArgs In GridView1.Rows
                    If dcell Is Nothing Then
                        dataExport = dataExport & drow.DataItem.ToString & ","
                    End If
                Next
            Next
 
            dataExport = dataExport & Environment.NewLine.ToString()
 
            Dim tw As New System.IO.StreamWriter("E:\SBS_sample.csv")
            tw.Write(dataExport)
            tw.Close()

 Protected Sub Button15_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button15.Click
 
        Dim con As New SqlConnection(connection_string)
       'Dim cmd As New SqlCommand("Select * From company_profile where serial_no = '" & TextBox1.Text & "'", con)
 
 
        Dim ad As New SqlDataAdapter("SELECT * FROM company_profile where serial_no = '1'", con)
        Dim ds As New DataSet()
 
        ad.Fill(ds)
 
        GridView1.DataSource = ds
        GridView1.DataBind()
 
        Dim style As String = "<style> .text { mso-number-format:\@; } </script> "
 
        Response.ClearContent()
        Response.AddHeader("content-disposition", "attachment; filename=MyExcelFile.xls")
        Response.ContentType = "application/excel"
 
        Dim sw As New StringWriter()
        Dim htw As New HtmlTextWriter(sw)
 
        GridView1.RenderControl(htw)
        ' Style is added dynamically 
        Response.Write(style)
        Response.Write(sw.ToString())
        Response.[End]()
    End Sub
 
    Private Sub DisableControls(ByVal gv As Control)
        Dim lb As New LinkButton()
        Dim l As New Literal()
 
        Dim name As String = [String].Empty
 
        For i As Integer = 0 To gv.Controls.Count - 1
            If gv.Controls(i).[GetType]() Is GetType(LinkButton) Then
                l.Text = TryCast(gv.Controls(i), LinkButton).Text
                gv.Controls.Remove(gv.Controls(i))
                gv.Controls.AddAt(i, l)
 
            ElseIf gv.Controls(i).[GetType]() Is GetType(DropDownList) Then
                l.Text = TryCast(gv.Controls(i), DropDownList).SelectedItem.Text
                gv.Controls.Remove(gv.Controls(i))
                gv.Controls.AddAt(i, l)
            End If
 
 
            If gv.Controls(i).HasControls() Then
                DisableControls(gv.Controls(i))
            End If
 
        Next
    End Sub
 
    Protected Sub Button16_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button16.Click
        DisableControls(GridView1)
 
        Response.ClearContent()
        Response.AddHeader("content-disposition", "attachment; filename=MyExcelFile.xls")
        Response.ContentType = "application/excel"
 
        Dim sw As New StringWriter()
        Dim htw As New HtmlTextWriter(sw)
 
        GridView1.RenderControl(htw)
        Response.Write(sw.ToString())
        Response.[End]()
    End Sub
 
    Public Overloads Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
 
    End Sub
 
    Protected Sub gvUsers_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs)
 
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.Cells(1).Attributes.Add("class", "text")
        End If
 
End Sub