Outlook automation from Access?

[deko]

The below code opens the Outlook calendar:

Dim mOutlookApp As Outlook.Application
Dim mNameSpace As Outlook.Namespace
Set mOutlookApp = New Outlook.Application
Set mNameSpace = mOutlookApp.GetNamespace("MAPI")
mNameSpace.GetDefaultFolder(olFolderCalendar).Disp lay
Set mNameSpace = Nothing
Set mOutlookApp = Nothing

But I can't figure out...

** how to refresh the calendar when it opens

appointments can take up to 30 seconds to appear when added with code from
Access

** how to limit the number of calendars open

I want a separate instance of the calendar open if Outlook is already open,
and a new instance if Outlook is not already open. So I think that means I
want to limit the instances to two... perhaps something like this:

Set objCals = GetObject(, "Outlook.Application")
If objCals > 2 Then Exit Sub 'how to enumerate object instances?

Thanks in advance...