vb如何统计excel文件中的数据记录条数？

Question

dim count，i as Integer 
'引用了excel插件
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
’调入CommonDialog控件 命名为cd1
cd1.FileName = ""
cd1.ShowOpenSet xlApp = CreateObject("Excel.Application")                '创建EXCEL对象Set xlBook = xlApp.Workbooks.Open(cd1.FileName)             '打开已经存在的EXCEL工件簿文件
xlApp.Visible = False                                       '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets(sss)        '指定了sheet表为sss...
代码省略
count=？？？？？？                       ’这里想获取sss表中数据记录条数
...
Set xlApp = Nothing
 
 Set xlApp = Nothing
  xlBook.Close'****问题如下：
我想打开任意一个xls文件，并且统计sss表中记录，谢谢！