Function UygulamaOzelligiEkle(strAd As String, varTur As Variant, varDeger As Variant) As Integer
    Dim veritabani As Object, prp As Variant
    Const ozellikbulunamazsahatakodu = 3270
 
    Set veritabani = CurrentDb
    On Error GoTo OzellikEkle_Err
    veritabani.Properties(strAd) = varDeger
    UygulamaOzelligiEkle = True
 
OzellikEkle_Cikis:
    Exit Function
 
OzellikEkle_Err:
    If Err = ozellikbulunamazsahatakodu Then
        Set prp = veritabani.CreateProperty(strAd, varTur, varDeger)
        veritabani.Properties.Append prp
        Resume
    Else
        UygulamaOzelligiEkle = False
        Resume OzellikEkle_Cikis
    End If
End Function

Private Sub Form_Open(Cancel As Integer)
    Dim intX As Integer
    Const DB_Text As Long = 10
    'Aşağıdaki alana uygulama başlığını yazınız.
    intX = UygulamaOzelligiEkle("AppTitle", DB_Text, "Uygulama Başlığı Yazılacak")
    'Aşağıdaki alana ise ikonunuzun bulunduğu yolu ve ikonunuzun adını yazınız.
    intX = UygulamaOzelligiEkle("AppIcon", DB_Text, Application.CurrentProject.Path & "\aaa.ico")
    'Aşağıdaki kod form ve raporlarda da uygulama simgesinin görünmesini sağlayacaktır.
    CurrentDb.Properties("UseAppIconForFrmRpt") = 1
    Application.RefreshTitleBar
    'Not uygulama simgesi direk değişmektedir. 
    'Fakat form ve rapor simgelerinin değişmesi için bir defa mahsus kapatıp açmak gerekmektedir.
End Sub

Dim db As Database
Set db = CurrentDb
'Aşağıdaki alana ikonun yolu yazılacak
db.Properties("AppIcon").Value = CurrentProject.Path & "\Bee.ico"
'Aşağıya ise uygulama başlığı girilecek.
db.Properties("AppTitle").Value = "Uygulama Başlığı"
db.Properties("UseAppIconForFrmRpt").Value = True
Application.RefreshTitleBar