DataProvider

Sub Populate()

      objCalendar.DataProvider.Remov eAllEvents

  

     ' There should be some your collection with events data

     ' In your case this is most likely a recordset which you get from the SQL server

     ' So, iterate this collection

     For each objEvent in objEventsCollection 

            Set objCalendarEvent = objCalendar.DataProvider.CreateEventEx(objEvent.ID)



            objCalendarEvent.StartTime = ...

            ...



            objCalendar.DataProvider.AddEvent  objCalendarEvent    

     Next

  

     objCalendar.Populate

End Sub



Private Sub CalendarControl_EventChanged(ByVal EventID As Long)

     Set objCalendarEvent = objCalendar.DataProvider.GetEvent(EventID)

  

     ' update data in your collection from objCalendarEvent

     ...

End Sub