I have the code below, and it doesn't error out, however, it only loads the LAST event to my calendar. I have tried moving the Populate, but nothing seems to matter. I am sure this is something very simple, but it has been such difficult process to show my events thus far.  Any suggestions would be appreciated.

 

 

'gets collection of my events from the SQL table

Set lo_EventCol = MctcManager.CATManager.GetCalendarCol(MctcRoutines.GetDatePart(Now))
   

For Each lo_Event In lo_EventCol
        ll_EventID = lo_Event.ID
       
        Set lo_Calendar = Me.XCalendar
        lo_Calendar.SetDataProvider "Provider=custom"
       
        Set lo_CalendarEvent = lo_Calendar.DataProvider.CreateEventEx(ll_EventID)

        If lo_CalendarEvent Is Nothing Then
            'no action
        Else
            lo_CalendarEvent.Subject = lo_Event.EventName
            lo_CalendarEvent.StartTime = lo_Event.StartDate
            lo_CalendarEvent.EndTime = lo_Event.EndDate
           
            lo_CalendarEvent.EventVisible = True

 

            If Not lo_Calendar.DataProvider.Open Then
                lo_Calendar.DataProvider.Create
            End If
            lo_Calendar.DataProvider.AddEvent lo_CalendarEvent
           
        End If
    Next lo_Event
   
    lo_Calendar.Populate

 

 

This only loads my LAST event to the calendar.  Ideas?

Thanks,

JAdauto