我使用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 '创建数据库
请大家指正错误之处，不胜感激。

十分感激