Setting Application Icon Problems

[EddyLLC via AccessMonster.com]

I found some code that I thought should set the application icon in my
Access2003 database. When I run the code I am getting a Property Not Found
error. The function is run on the OnClose action of the splashscreen.
strDBPath is a variable I set to the location of the backend.

Can anybody see my error? Thanks.

Public Function AssignIcon()
Dim db As Database
Dim strIconPath As String

Set db = CurrentDb
strIconPath = strDBPath & "Icon1.ico"
db.Properties("AppIcon").Value = strIconPath
Application.RefreshTitleBar

End Function

 

[Allen Browne]

If you have never had an icon in your database, you will need to
CreateProperty().