Maybe Shell?

I was too quick to ask. I remembered the answer with Shell.   It works. No Warnings

Dim shellApp As Object
Set shellApp = CreateObject("Shell.Application")
shellApp.ShellExecute TempVars("myDesktop") & "\Calendar\Calendar.accdb"
Set shellApp = Nothing

How are you getting your Desktop Path into the TempVars()? Are you hard coding it with the full path?
I like to do it like this so the Desktop can be found on any PC running the database.

    Dim Username As String
    
    Username = Environ$("username")
    TempVars("DesktopPath") = "C:\Users\" & Username & "\Desktop\"
    MsgBox TempVars("DesktopPath")

I created  TempVars("myDesktop") so I could use it everywhere.
(This happened right after Ricks Lesson on tempvars vs. Global Constants.
"DeskTopPath" can not be a Global Constant because every computer has a different path to its desktop.
So the Key is the Public Function DeskTopPath(). This returns the current computers path to the Desktop.
And I run TempVars in the First Form opening in my Application.


Place it at the OnLoad of the First Form
'----------------------------------------
Private Sub Form_Load()
TempVars("myDesktop") = DeskTopPath()
End Sub
'----------------------------------------


' Place in "PublicMod"
'---------------------------------------------------------------------
'Public Function DeskTopPath()
'---------------------------------------------------------------------
Public Function DeskTopPath() As String
DeskTopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
End Function
'---------------------------------------------------------------------

So it is really One line of code
DeskTopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")