Заметил что строки вызывают ошибку:

Dim db As DAO.Database
Set db = CurrentDb
db.Properties("AppIcon").value = CurrentProject.path & "\icons\logo.ico"
db.Properties("AppTitle").value = "СЛПВ"

В этой версии какие то другие свойства есть?

http://www.sql.ru/forum/1071495/2010-access-ustanovit-ikonku