CurrentProject.Properties.Item( "AppTitle" )= "Спасибо и мне :)" 
'или если нет  CurrentProject.Properties.Add  "AppTitle" , "Спасибо и мне :)" 
Application.RefreshTitleBar

'Универсальная функция смены свойств базы данных
Public Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
    Dim dbs As DAO.Database, prp As DAO.Property
    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb
    '    Set dbs = OpenDatabase( "C:\Пилорама\Пилорама_инт.mdb" )
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True
    '    dbs.Properties.Refresh
Change_Bye:
    Exit Function

Change_Err:
    If Err = conPropNotFoundError Then  ' Свойство не найдено.
        Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' Неизвестная ошибка.
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function

'Вызов смены заголовка приложения

ChangeProperty  "AppTitle" , dbText,  "Спасибо и мне :)" 
Application.RefreshTitleBar