VB难题

我用VB+DAO来调用excel2000,我现在想知道表中有多少条记录！怎么做啊！请各位高手救我！谢谢！！
我调用excel的代码为:
Dim MDB As Database
Dim REC As Recordset
Dim ws As WorkspacePrivate Sub Form_Load()
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(App.Path & "\mov.xls")
Set xlsheet = xlBook.Worksheets(1)
'MsgBox xlsheet.Cells(1, 1)
End Sub