主题：请教同时导出多个表的代码问题

Dim ex as New Exporter
ex.SourceTableName = "订单" '指定导出表
ex.filepath = "c:\Data\订单.mdb" '指定目标文件
ex.Export() '开始导出

Dim ex1 as New Exporter
ex.SourceTableName = "客户" '指定导出表
ex.filepath = "c:\Data\订单.mdb" '指定目标文件
ex.Export() '开始导出

Dim ex1 as New Exporter
ex.SourceTableName = "产品" '指定导出表
ex.filepath = "c:\Data\订单.mdb" '指定目标文件
ex.Export() '开始导出