主题：读取excel表中数据

老师您好！

     我有一个订单明细表：表的格式：

此主题相关图片如下：采购单.png

想把其中的部分数据读取到foxtable的明细表中，只将供方名称和下面的多行读入，我只会写读取一行数据的代码：

Dim Book As New XLS.Book("d:\aa\采购订单.xlsx")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim dr As DataRow = DataTables("ylcgb").AddNew
dr("供应商") = sheet(2,1).text
dr("原料名称") = sheet(11,1).Text
dr("描述及规格") = sheet(11,2).text
dr("采购_数量") = sheet(11,3).text
dr("到货日期") = sheet(10,4).text

但是怎么写代码自动判断数据的行数，并自动读取存入订单明细表中的。比如上采购单中有两行数据，以后有可能是三行，或更多。也就是说通用代码是怎样的？真的不会写了。谢谢帮助！