两种方法将数据写入excel文件

废话少说，代码片段如下：

Try
                        Dim compid As String = e.Item.Cells(0).Text
                        Dim time As String = txt_Time.Text
                        Dim adp As New OleDb.OleDbDataAdapter("select id 电脑序号,insureid 公民身份证号码,name 姓名,INTYPE 缴费人员类别,AVGWAGE 上年月平均工资,base 缴费基数 from v_BaseCollect where compid='" + compid + "' and time='" + time + "'", New OleDb.OleDbConnection(Application("ConnStr").ToString))
                        Dim dt As New DataTable
                        Dim bs As New webapi.setapi
                        adp.Fill(dt)
                        adp.Dispose()

                        '打开excel文件
                        ViewState.Item("FileName") = ViewState("folder").ToString + "/" + Now.Ticks.ToString + ".xls"
                        Dim strConn As S