如何在把网数据保存为Excel的过程中设置Excel的格式

Public Sub CreateExcel(ByVal ds As DataSet)
            Dim resp As HttpResponse
            Dim colHeaders, ls_item, title As String
            Dim i, j As Integer
            Dim ds_t As DataSet
            resp = Page.Response
            resp.AppendHeader("Content-Disposition", "attachment;filename=Excel.xls")
            resp.ContentEncoding = System.Text.Encoding.Default
            resp.ContentType = "application/ms-excel"
            resp.Charset = "GB2312"            colHeaders = ""
            ls_item = ""
            title = ""
            i = 0
            ds_t = sqlrun("select busername,usertitle from AdminUser where id='" & System.Web.HttpContext.Current.Session.Item("A_ID").ToString & "' ")
            title = "防窜查询" + vbCrLf + "查询人：" + vbTab + ds_t.Tables(0).Rows(0).Item(0).ToString + vbTab + vbTab + "所属公司：" + vbTab + ds_t.Tables(0).Rows(0).Item(1).ToString + vbTab + vbTab + "查询时间：" + vbTab + Now.Date + vbTab + vbCrLf + vbCrLf
            resp.Write(title)
            '取得数据表各列标题，各标题之间以\t分割，最后一个列标题后加回车符            For i = 0 To 8
                colHeaders += ds.Tables(0).Columns(i).Caption.ToString + vbTab
            Next i
            colHeaders += vbCrLf
            '向HTTP输出流中写入取得的数据信息 
            resp.Write(colHeaders)
            '逐行处理数据   
            For i = 0 To ds.Tables(0).Rows.Count - 1
                '在当前行中，逐列获得数据，数据之间以tab分割，结束时加回车符 
                For j = 0 To 8
                    ls_item += ds.Tables(0).Rows(i).Item(j).ToString + vbTab
                Next
                ls_item += vbCrLf
                '当前行数据写入HTTP输出流，并且置空ls_item以便下行数据     
                resp.Write(ls_item)
                ls_item = ""
            Next
            resp.End()
        End Sub用这个函数把Dataset里面的数据存下来发现一个13位的数字变成了科学记数法格式得了
谁可以知道怎么在数据流中怎么写 可以设置写入单元格的数据的格式 ，写入单元格的背景颜色
程序要怎么写