我使用ADOX创建ACCESS数据库文件，使用了commondialog,如何存在同名文件，虽然能出现是否覆盖的提示，但是如果我点了是，就会出现文件已经存在的错误。使用的代码如下
      Dim fm As String 'fm变量用来获取用户输入的文件名
      CommonDialog1.Filter = "MDB文件(*.mdb)|*.mdb|AllFiles(*.*)|*.*|"
      CommonDialog1.FilterIndex = 1
      CommonDialog1.InitDir = App.Path
      CommonDialog1.Flags = &H2
      CommonDialog1.Action = 2
      If CommonDialog1.FileName = "" Then
        MsgBox "你必须输入一个文件名，请重新保存一次！"
        Exit Sub
      Else
        fm = CommonDialog1.FileName
      End If
      pstr = "Provider=Microsoft.Jet.OLEDB.4.0;"
      pstr = pstr & "Data Source=" & fm
     
     
      cat.Create pstr '创建数据库
请大家指正错误之处，不胜感激。

你可以 KILL 掉这个文件再来创建。
一般新建一个文件时，如果是2进制文件或其它类型的文件，覆盖时，都是建议程序里KILL 掉原文件，再创建新文件。
顺序文件不做这个建议，因为顺序文件新建命令会自动清空原文件
      If CommonDialog1.FileName = "" Then
        MsgBox "你必须输入一个文件名，请重新保存一次！"
        Exit Sub
      Else
        fm = CommonDialog1.FileName
        kill fm
      End If

你可以KILL掉这个文件
      If CommonDialog1.FileName = "" Then
        MsgBox "你必须输入一个文件名，请重新保存一次！"
        Exit Sub
      Else
        fm = CommonDialog1.FileName
        kill fm
      End If

这论坛设置，
前一句不能灌水，害得又重打，结果又算回复成功，

十分感激