求自定义ADO连接ACCESS数据库出错提示

Henry D. Sy

需要引用Microsoft Scripting Runtime
Dim fs As New FileSystemObject
    Dim strPath As String
    strPath = CurrentProject.Path & "\a.mdb"
    If fs.FileExists(strPath) Then
        MsgBox strPath
    End if

fnsmydyang

谢谢,,又增长了不少知识.[:12]