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