主题：程序运行速度变慢

老师好，我要导入数据库里的所有表里的数据，如何遍历access里的数据表名？帮助里的只是加载一个表。

Dim ip as New Importer
ip.SourcePath = "c:\Data\销售管理.mdb" '指定数据文件
ip.SourceTableName = "订单" '指定要导入的表
ip.NewTableName ="订单" '导入后的表名
ip.Import()

下面的代码只是遍历foxtable里的表，用下面的代码可以遍历access里的表吗？请问老师如何更改代码？谢谢

Dim jname As String

For Each dt As DataTable In DataTables

  jname=dt.name

Next