ник: час
Перенёс всё в новую чистую базу
Перестало работать.
Dim strNew As String
strNew = CurrentProject.Path & "\PVH1.ico"
CurrentDb.Properties("AppIcon").Value = strNew
==============================================
Свойство не найдено
CurrentProject.Properties.Add "AppIcon", CurrentProject.Path & "\PVH1.ico"
не помогает