'Иконка аппликации:
    ' проверяем лежит ли иконка в папке
    If Dir(CurrentProject.Path & "\COMPONENTS\IMAGES\ICON.ico") <> "" Then
        ChangeProperty "AppIcon", dbText, CurrentProject.Path & "\COMPONENTS\IMAGES\ICON.ico"
        Application.RefreshTitleBar
       ' Использовать иконку приложения для Форм и Отчётов
        ChangeProperty "UseAppIconForFrmRpt", dbBoolean, True
    Else
    ' иконка не найдена - не использовать
    CurrentDb.Properties.Delete "AppIcon"
   ' Не Использовать иконку приложения для Форм и Отчётов
    ChangeProperty "UseAppIconForFrmRpt", dbBoolean, False
    End If

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True

Change_Bye:
Exit Function

Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function