Application.CurrentProject.Properties("AppTitle")

В Help-е лень поискать?! :)

Сорри, недосмотрел версию, для Access97 чуть по-другому

currentdb.Properties("AppTitle")

Это свойство создается автоматически, если поставить вручную через интерфейс Tolls - > StartUp -> Application Title

Или его необходимо создавать на VBA
пример из в Help-а

Sub cmdAddProp_Click()
Dim intX As Integer
Const DB_Text As Long = 10
intX = AddAppProperty("AppTitle", DB_Text, "My Custom Application")
intX = AddAppProperty("AppIcon", DB_Text, "C:\Windows\Cars.bmp")
Application.RefreshTitleBar
End Sub

Function AddAppProperty(strName As String, varType As Variant, varValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
On Error GoTo AddProp_Err
dbs.Properties(strName) = varValue
AddAppProperty = True

AddProp_Bye:
Exit Function

AddProp_Err:
If Err = conPropNotFoundError Then
Set prp = dbs.CreateProperty(strName, varType, varValue)
dbs.Properties.Append prp
Resume
Else
AddAppProperty = False
Resume AddProp_Bye
End If
End Function

Я же написал, что не посмотрел на версию, и для для Access97
нужен другой вариант
currentdb.Properties("AppTitle")

а Application.CurrentProject.Properties("AppTitle")
это для *.adp (Access 2000, 2002)