VB怎么把Access 数据库中表一次性导出并存放到CSV文件中

如题：
想利用
Private Sub Command2_Click()
  Dim AccAPP As New Access.Application
'        AccAPP.OpenCurrentDb (数据库路径)

    AccAPP.OpenCurrentDatabase "" & App.Path & "\CDD.mdb"
    AccAPP.DoCmd.OutputTo acOutputTable, "RLCFP", acFormatCSV, "" & App.Path & "\0906RLCFP.csv", True '导出表
    AccAPP.CloseCurrentDatabase '关闭access对象
    AccAPP.Quit acQuitSaveNone
      
    Set AccAPP = Nothing

End Sub

虽然导出CSV文件但是格式不对