Программирование на Visual Basic

06. Простейший вариант для определения какой файл используется: mde или mdb смотрите пример 6

Private Sub Form_Load()
Dim Flag As Variant, dbs As Database
On Error GoTo 999
    ' Получаем информацию о текущей базе
    Set dbs = CurrentDb
    If dbs.Properties("MDE") = "T" Then ' Такого свойства нет в mdb
        Me.myTypeDB = 2 ' Указываем вид для формы
    End If
    Exit Sub
999:
    Err.Clear
    Me.myTypeDB = 1
End Sub