'функция проверяет МДБшность файла с именем filename типа C:\basa.txt
'если это файл MDB базы той же версии ACCESS (или библиотеки DAO, если проверка не из оболочки ACCESS) то вернет 0
Function ControlMDBFile(ByVal filename As String) As Integer
Dim wsp As DAO.Workspace, dbs As DAO.Database
' Возвращает ссылку на заданную по умолчанию рабочую область.
Set wsp = DBEngine.Workspaces(0)
' Возвращает ссылку на файл filename. Если не ACCESS или не та версия
'то вернет ошибку 3343 Нераспознаваемый формат базы данных: filename.
On Error Resume Next
Set dbs = wsp.OpenDatabase(filename)
'посмотреть, что получилось
Debug.Print Err, Err.Description
'вернуть код ошибки
ControlMDBFile = Err
'освободить объектную переменную
Set dbs = Nothing
End Function