@pbaugard I did not find a resolution with the linking method. I did however spend some time looping through all Folders using the following code
'Use this for Late Binding
Dim objApp As Object
Dim NameSpace As Object
Dim fdrCalendar As Object
Dim ItemAppt As Object
Dim Appt_LoadInfo As String
'Use this for Early Binding and create a reference to Miscrosoft Outlook Object Library
'Dim objApp As Outlook.Application
'Dim NameSpace As Outlook.NameSpace
'Dim fdrCalendar As Outlook.MAPIFolder
'Dim ItemAppt As Outlook.AppointmentItem
Dim rst As Recordset
'Dim vMisc As Variant
Dim strEntryID As String
Dim strStoreID As String
Dim ApptSub() As String
On Error GoTo ErrorCode
Set objApp = CreateObject("Outlook.Application")
Set NameSpace = objApp.GetNamespace("MAPI")
then scrolling through the debug window to find the entryID and storeID of the folder I wanted to target (long and tedious but super effective. :D)
Set fdrCalendar = NameSpace.GetFolderFromID(strEntryID, strStoreID)
For Each ItemAppt In fdrCalendar.Items
'Do all my processing here
Next
With this method, I've been able to import the necessary items into my Events table as well as export new Events to the Outlook folder.
Thank you for checking in on me.
