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