ник: Filosof
Меню-Сервис-Параметры запуска
А если программно то вот функция
Function AddAppProperty(strName As String, varType As Variant, varValue As Variant) As Integer
Dim dbs As Database, prp As Property
Set dbs = CurrentDb
dbs.Properties(strName) = varValue
AddAppProperty = True
RefreshTitleBar
End Function
AddAppProperty("AppTitle", dbText, "Название моей базы") 'Смена заголовка
Dim icoX as String
icoX = Left$(CurrentDb.Name, Len(CurrentDb.Name) - 3) & "ico" ' Иконка с названием базы лежит в одной с ней каталоге
AddAppProperty("AppIcon", dbText, icoX) 'Задали Иконку
Но если я не ошибаюсь надо что бы они были в базу уже установлены т.е. какой никакой заголовок или иконка а то будет ругаться что происходит обращение к несуществубщим свойствам