数据报表输出的问题，请教各位高手。

这个是我的程序
Option Explicit
Dim exlapp As New Excel.Application
Dim exlbook As Excel.Workbook
Dim exlsheet As Excel.Workbook
Dim mydb As Database
Dim rs As Recordset
Private Const cn1 = "provider=microsoft.jet.oledb.4.0;data source="Private Sub Command1_Click()
Set exlapp = New Excel.Application
exlapp.Workbooks.open App.Path & "\book.xlt" '打开数据库
Set mydb = Workspaces(0).OpenDatabase(App.Path & "\db1.mdb") '打开表
Set rs = mydb.OpenRecordset("db1", dbOpenTable)
Dim rows As Integer
rows = 3
If rs.RecordCount > 0 Then '将数据库信息添加到excel表中
While Not rs.EOF
    With exlapp.Sheets(1)
   .cell(rows, 1) = rs.Fileds("序号")
   .cells(rows, 2) = rs.Fileds("经手人")
   .cells(rows, 3) = rs.Fileds("购置日期")
   .cells(rows, 4) = rs.Fileds("购置内容")
   .cells(rows, 5) = rs.Fileds("总价")
   .cells(rows, 6) = rs.Fileds("分类")
   .cells(rows, 7) = rs.Fileds("经费来源")
   .cells(rows, 8) = rs.Fileds("备注")
   .cells(rows, 9) = rs.Fileds("部门")
   .cells(rows, 10) = rs.Fileds("部门类别")
   rs.MoveNext
   rows = rows + 1
   End With
   Wend
   exlapp.Visible = True
   Else
   MsgBox "没有数据！"
   End If
End SubPrivate Sub Form_Unload(Cancel As Integer) '关闭表
rs.colse '关闭连接
cnn.Close
exlapp.Quit
End Sub运行的时候不能找到数据的方法或成员是怎么回事，谢谢各位了啊