有一个access的mdb数据库文件，内有三个表，怎样写才能一键把三个表内容（包括标题栏）极快的导出成三个以表名命名的CSV文件（在form中不用显示表内容）？查询了一下，网上绝大部分都是教如何把CSV文件导入MDB文件，反倒出来的很少很少，有的里面也就是一两句话，让人摸不清头脑。

能否麻烦写一个form上传上来，不知道该引用些啥，以及语句怎么写。

拜求版主和路过的高能坛友。

附MDB文件：

引用 DAO 3.5 和 Access 12.0后，写下面的语句：

Private Sub Command1_Click()
Dim AccAPP As New Access.Application
    AccAPP.OpenCurrentDatabase "" & "d:\OB.mdb"
    AccAPP.DoCmd.OutputTo acOutputTable, "DataInfo", acFormatCSV, "" & "d:\2.csv", True  '导出表
    AccAPP.CloseCurrentDatabase '关闭access对象
    AccAPP.Quit acQuitSaveNone
    Set AccAPP = Nothing
End Sub

导出的CSV格式不正确
换成acFormatTXT 格式也不正确
而且时间较长。
请问怎么修改？