[求助]分页加载数据该如何导出数据到EXELL

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
   dlg.Filter= "excel文件|*.xls" \'设置筛选器
   If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
     Dim ex As New Exporter   
     ex.SourceTableName ="crm_products"  \'指定导出表
     ex.filepath = dlg.FileName  \'指定目标文件 
     ex.Format = "Excel" \'导出格式为Excel
     ex.Fields = "product_name,product_code,Sell_price,StockNumber,producttype_id,订单数量,kaitong" \'指定导出字段
     \'按照查询的方式查询
     ex.Filter = "[producttype_id]=91 and StockNumber=1 and 订单数量 is null and (kaitong=1 or kaitong is null) " \'指定导出条件
     ex.Export() \'开始导出
     messagebox.show("成功导出数据")
   End If

我现在用的这个导出EXECELL表的方式，但是当我吧crm_products改成分页加载的时候，每次分页表的加载进来的数据都是分页的数据，而不是全部的crm_products。所有导出的数据就不全。

如何直接从后台也就是SQL数据库直接导出数据到EXCELL，而不是从加载的DATAtable里导出表，因为crm_products数据量大，无法全部加载