Dim accApp As Access.Application
Set accApp = New Access.Application
accApp.SysCmd 603, PathMdb, PathMde ' Конвертация mdb - mde
accApp.SysCmd 602, PathMdb, PathMdb ' Сжатие mdb
Set accApp = Nothing
SysCmd(605, 0) ' конвертировать DB в предыдущую версию 
SysCmd(605, "C:\Database97.mdb") ' конвертировать DB в предыдущую версию
SysCmd(607,"C:\Project1.adp") ' конвертировать DB в ADP проект
SysCmd(710, 67699721) ' установить US клавиатуру
SysCmd(710, 68748313) ' установить русскую клавиатуру
SysCmd(711) ' вернуть код текущей клавиатуры
SysCmd(714) ' вернуть TRUE, если form, report, macro or module находятся в режиме проектирования