生成的EXCEL表怎么没有值,DBREAD给EXCEL表附值哪错了,请指点

[ZYY123456]

Function SelectAllData()
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=D:\app\jhytsz.m"& _
"db"
Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)

Dim queryString As String = "SELECT [SZBZ].* FROM [SZBZ]"
Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection

Dim dbRead AS System.Data.IDataReader
dbCommand.Connection.Open()

dbRead=dbCommand.ExecuteReader()
UDG.DataSource = dbRead
UDG.DataBind()
''''''''''''
Dim xlsheet As New SpreadsheetClass()
Dim numbercols As Int16
numbercols = dbRead.FieldCount
Dim row As Int16 = 1
Dim i As Int16

While dbRead.Read()
For i = 0 To numbercols - 1
xlsheet.ActiveSheet.Cells(row, i + 1) = dbRead.GetValue(i).ToString()
Next
row += 1
End While
' xlsheet.ActiveSheet.Cells(1, 1) ="test"
' xlsheet.ActiveSheet.Cells(2, 2) ="test"
xlsheet.ActiveSheet.Export(Server.MapPath(".") + "\wx.xls", OWC.SheetExportActionEnum.ssExportActionNone)
''''''''''''
dbRead.Close()
dbCommand.Connection.Close()

End Function
DATAGRID中都有值,EXCEL表却没取到值,DBREAD给EXCEL表附值哪错了,请指点