急！！！问一个数据库是否存在的问题！

Question

Public Function FileExist(FileName As String) As Boolean
'=====================
'检查一个文件是否存在
'=====================
    Dim fso As Object ' New Scripting.FileSystemObject
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    FileExist = fso.FileExists(FileName)
    
    Set fso = NothingEnd Function

Answer 1

str = Dir(app.path & "\ad.mdb")
if (str="") then msgbox "no this file"Dir 函数,返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。
Dir[(pathname[, attributes])]
Dir 支持多字符 (*) 和单字符 (?) 的通配符来指定多重文件。attributes 参数的设置可为：常数       值 描述 
vbNormal    0 (缺省) 指定没有属性的文件。 
vbReadOnly  1 指定无属性的只读文件 
vbHidden    2 指定无属性的隐藏文件 
VbSystem    4 指定无属性的系统文件 
vbVolume    8 指定卷标文件；如果指定了其它属性，则忽略vbVolume 
vbDirectory 16 指定无属性文件及其路径和文件夹。 在第一次调用 Dir 函数时，必须指定 pathname，否则会产生错误。如果也指定了文件属性，那么就必须包括 pathname。Dir 会返回匹配 pathname 的第一个文件名。若想得到其它匹配 pathname 的文件名，再一次调用 Dir，且不要使用参数。如果已没有合乎条件的文件，则 Dir 会返回一个零长度字符串 ("")。一旦返回值为零长度字符串，并要再次调用 Dir 时，就必须指定 pathname，否则会产生错误。不必访问到所有匹配当前 pathname 的文件名，就可以改变到一个新的 pathname 上。但是，不能以递归方式来调用 Dir 函数。以 vbDirectory 属性来调用 Dir 不能连续地返回子目录。

Answer 2

试图连接数据库
如果出错就说明他不存在
on error goto err
     myconnection.connect=trueexit sub
err:    msgbox "wrong"
end sub