Schedules

I want to use the existing code you have for the Mysql class.
It all works great until I put different schedules on the calendar - the calendarcontrol.populate routine
fails to fire the providerMysql class.
Please be as simple as possibe because I am !

Public Sub OpenProvider(ByVal eDataProviderType As CodeJockCalendarDataType, ByVal strConnectionString As String)
 

     Set m_pCustomDataHandler = New providerMySQL
     m_pCustomDataHandler.OpenDB strConnectionString
     m_pCustomDataHandler.SetCalendar CalendarControl

     CalendarControl.SetDataProvider strConnectionString
     CalendarControl.DataProvider.CacheMode = xtpCalendarDPCacheModeOnRepeat



     If Not CalendarControl.DataProvider.Open Then
        CalendarControl.DataProvider.Create
     End If


    'All works until here
    Set objCalendar = Me.CalendarControl
    Set objResources = New CalendarResources

    objResources.Add CreateResources("test1", 1)
    objResources.Add CreateResources("Test2", 2)

    CalendarControl.SetMultipleResources objResources
   
   
     CalendarControl.Populate
     wndDatePicker.RedrawControl

End Sub

//VB6
// Windows XP/ 7
// Calendar control V13