Title Bar???

[Nucleus]

In the absence of an alternative suggestion, you can always change the title from Access to your own custom title like so:

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True

Change_Bye:
    Exit Function

Change_Err:
    If Err = conPropNotFoundError Then    ' Property Not found.
        Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' Unknown error.
        MsgBox "Change Property Error: " & Err.Number & ": " & Err.Description
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function

Used to change application's title:

ChangeProperty "AppTitle", dbText, "I hope your app has a cool title To put here" 'custom title