vb动态建立Access,新建库名已存在时的有关问题，路过的高人指点下

vb动态建立Access,新建库名已存在时的问题，路过的高人指点下
数据已存在表格中，当按“存储”按键时将表格里的数据导入Access保存
        Form1.Dialog1.InitDir   =   App.Path
        Form1.Dialog1.Filter   =   "*.mdb "
        Form1.Dialog1.ShowSave
        Filename   =   Form1.Dialog1.Filename
      '打开保存路径
    pstr   =   "Provider=Microsoft.Jet.OLEDB.4.0; "   '
    pstr   =   pstr   &   "Data   Source= "   &   Filename   +   ".mdb "
    cat.Create   pstr   '创建数据库
    ....

若pstr所值的库已经存在，Creat就会报错
我怎么才能判断库已存在？若存在则提示是否覆盖？

------解决方案--------------------
dir函数会用吗？不会的话看看msdn