Гораздо проще пользоваться встроенными средствами Access.
Dim strAppPath As String
'сохраним путь базы
strAppPath = Application.CurrentProject.Path & "\"
' передадим полный путь
If Dir(strAppPath & "MyBase.mdb") <> "" Then
MsgBox "Файл существует"
Else
MsgBox "Файл не существует"
End If
Но можно и использовать функцию API PathFileExists - для тех кто не ищет легких путей:
' объявляем API для определения - есть ли файл
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Dim strAppPath As String
' сохраним путь базы
strAppPath = Application.CurrentProject.Path & "\"
If PathFileExists(strAppPath & "Нарушения_ПДД_data.mdb") = 1 Then
' Возвращает 1(файл существует) или 0 (файла нет)
MsgBox "Файл существует"
Else
MsgBox "Файл не существует"
End If
лучше завернуть все это дело в оболочку в отдельном модуле:
' возвращает True(файл существует) или False(файла нет)
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Public Function DoesFileExist(ByVal strPath As String) As Boolean
DoesFileExist = PathFileExists(strPath)
End Function
вызывается просто:
MsgBox DoesFileExist("c:\autoexec.bat")
Ссылки по теме