Создание базы данных

Public Function funCreateDatabase(strMDB As String) As Boolean

Dim sFullPath As String

    On Error GoTo 999  'Назначаем переход по ошибке

    funCreateDatabase = False 'Возвращаем результат при ошибке

    sFullPath = appFolder & "\" & strMDB 'Полное имя файла

    If Dir(sFullPath) <> "" Then Kill sFullPath 'Уничтожаем старую базу данных

    DBEngine.CreateDatabase sFullPath, dbLangCyrillic 'Создаем базу данных

    appAccess.OpenCurrentDatabase sFullPath 'Открываем базу данных

    funInitReferences '<2> Настраиваем ссылки базы данных

    funInitStartupProperties '<2> Настраиваем стартовые свойства

    funCreateDatabase = True 'Возвращаем результат

    Exit Function ‘Выходим из программы

999:

    MsgBox Err.Description 'Сообщаем об ошибке

    Err.Clear 'Очищаем поток от ошибок

End Function