ник: час
Вот имеется код
'Инициализируем переменныю пути к БД
strDBPath = CommonDialog1.FileName
'Устанавливаем опции
lngDBOpts = dbVersion30 + dbEncrypt
'Создаем рабочее пространство
Set NewWs = DBEngine.Workspaces(0)
'Создаем Базу Данных
Set NewDB = NewWs.CreateDatabase(strDBPath, dbLangCyrillic, lngDBOpts)
MsgBox "База Данных " & CommonDialog1.FileTitle & _
" создана.", vbInformation, "Создание Баз Данных"
|
Видимо дело в опции - что база получается в формате A 97
Как получить более позднюю версию???