[AccessD] A2003:Connection Method failing

Hello all
 
(Cross Posted to Sue and Dmitri's list)
 
The code below used to work - now it doesn't
Our enterprise has moved to Exchange - does that matter?
 
The error is 
ERR.Number =  -2147024769 
ERR.Description = Method 'Connection' of object '_CurrentProject' failed

Any suggestions?
 
Code snip below
 

    Dim rs As Object
    Dim con As Object

    
    Dim objOutlook As Outlook.Application
    Dim objAppt As Outlook.AppointmentItem
    Dim objRecurPattern As Outlook.RecurrencePattern
        
    Set objOutlook = CreateObject("Outlook.Application")
    Set objAppt = objOutlook.CreateItem(olAppointmentItem)
    
    Set rs = CreateObject("ADODB.Recordset")
    Set con = Application.CurrentProject.Connection
'<=============Error here