You can set the Application Title under Tools | Startup.
To do it programmatically, you set the DAO Database's AppTitle property. The
"trick" is that the AppTitle property doesn't exist until you've set a title
at least once.
You could use a routine like:
Sub CreateAppTitle(AppTitle As String)
On Error GoTo Err_CreateAppTitle
Dim dbCurr As DAO.Database
Dim prpNew As DAO.Property
Set dbCurr = CurrentDb()
dbCurr.Properties("AppTitle") = AppTitle
End_CreateAppTitle:
Application.RefreshTitleBar
Set dbCurr = Nothing
Exit Sub
Err_CreateAppTitle:
Select Case Err.Number
Case 3270 ' "Property Not Found"
Set prpNew = dbCurr.CreateProperty("AppTitle", dbText, AppTitle)
dbCurr.Properties.Append prpNew
Case Else
MsgBox Err.Number & ": " & Err.Description
End Select
Resume End_CreateAppTitle
End Sub