主题：最多加载X个数据，怎么做？

Forms("入库明细历史查询").Open()
Dim r As Integer
r=Tables("入库单.入库明细").Current("商品编码")
Tables("入库明细历史查询_入库单明细统计").Filter = "商品编码 ='" & r & "'"
Tables("入库明细历史查询_入库单明细统计").Sort = "日期 DESC"

以上代码达到“最多加载10个数据”的话，怎么修改？