Можно!

Public Function AddProperty(strName As String, varType As Long, varValue As Variant) As Boolean
Dim prp As Property
Dim Mydb As Database
Const conPropNotFoundError = 3270
AddProperty = False
Set Mydb = CurrentDb
'on error GoTo Err_
CurrentDb.Properties(strName) = varValue
Ex_:
Exit Function
Err_:
If err = conPropNotFoundError Then
Set prp = Mydb.CreateProperty(strName, varType, varValue)
Mydb.Properties.Append prp
Else
MsgBox "Ошибка №" & err.Number & " " & err.DESCRIPTION, vbCritical
AddProperty = False

End If
Resume Ex_

End Function

На форму загрузки вешаешь
Private Sub Form_Open(Cancel As Integer)
Dim intX As Long, StrIco As String
intX = AddProperty("AppIcon", dbText, StrPathDB) '- Иконка
RefreshTitleBar
End Sub


И всё!