events not populating calendar control - help!

I'm basically using CodeJock's supplied sample VB6 calendar app
to its original frmMain.CalendarControl using above code I can add an event and it appears.

Im now after placing 3 CalendarControls 
 frmMain.mCalendarControl(0)
 frmMain.mCalendarControl(1) and
 frmMain.mCalendarControl(2)

I modded original to...
 frmMain.CalendarControl.SetDataProvider "Provider=Custom;DSN=ODBC_Engineers"
and events can still be added to original control using code like above...
 frmMain.CalendarControl.DataProvider.AddEvent TimeObject
...the original CodeJock vb6 app has no "Do_" subs or functions, so I assumed the 3 new controls would be the same.

however I cannot add events to the 3 new controls...

I suspect the issue lies in my manual population of events, these events will exist in your controls memory only
(as I have changed...
  frmMain.CalendarControl.SetDataProvider "Provider=Custom;DSN=XyzXyz"
...and added events still populate original control, without a valid DSN= )

Thanks for any help in advance,
Jason  

rewrote CalMulti_AddEvent() it works adding an event
renamed original to CalMulti_AddEvent_Old() the not working version
I don't know why one works and not the other...

Sub CalMulti_AddEvent(ByVal CtrlIndex%, ByVal CallData$)
  StrSub CallData$, 1, UniqueID$
  StrSub CallData$, 2, temp$: Engineer2Use& = Val(Trim$(temp$))
  StrSub CallData$, 3, StartYYYYMMDD$
  StrSub CallData$, 4, StopYYYYMMDD$
  StrSub CallData$, 5, StartHHMM$
  StrSub CallData$, 6, StopHHMM$
  StrSub CallData$, 7, cTitle$
  StrSub CallData$, 8, Body$
 
  Dim pEvent As CalendarEvent
  Set pEvent = frmMain.mCalendarControl(CtrlIndex%).DataProvider.CreateEvent
 
  With pEvent
    .Subject = cTitle$
    .Body = Body$
    .StartTime = YYYYMMDD2Format$(StartYYYYMMDD$, "dd Mmm yyyy") + "   " + Left$(StartHHMM$, 2) + ":" + Right$(StartHHMM$, 2)
    .EndTime = YYYYMMDD2Format$(StopYYYYMMDD$, "dd Mmm yyyy") + "   " + Left$(StopHHMM$, 2) + ":" + Right$(StopHHMM$, 2)
    .AllDayEvent = False
    .ScheduleID = UniqueID$
  End With
 
  frmMain.mCalendarControl(CtrlIndex%).DataProvider.AddEvent pEvent
  frmMain.mCalendarControl(CtrlIndex%).Populate
 
  'MsgBox "Event count: " + Str$(frmMain.mCalendarControl(CtrlIndex%).DataProvider.GetAllEventsRaw.Count)
End Sub

Sub CalMulti_AddEvent_Old(ByVal CtrlIndex%, ByVal CallData$)
  On Local Error GoTo 0
  On Error GoTo 0
 
  StrSub CallData$, 1, UniqueID$
  StrSub CallData$, 2, temp$: Engineer2Use& = Val(Trim$(temp$))
  StrSub CallData$, 3, StartYYYYMMDD$
  StrSub CallData$, 4, StopYYYYMMDD$
  StrSub CallData$, 5, StartHHMM$
  StrSub CallData$, 6, StopHHMM$
  StrSub CallData$, 7, cTitle$
  StrSub CallData$, 8, Body$

  UseExistingMethod% = False
  If UseExistingMethod% Then
    NewTimeObject frmMain.mCalendarControl(CtrlIndex%), UniqueID$, StartYYYYMMDD$, StopYYYYMMDD$, StartHHMM$, StopHHMM$, cTitle$, Body$, Engineer2Use&, True, True
  Else
    Dim TimeObject As CalendarEvent
    Set TimeObject = frmMain.mCalendarControl(CtrlIndex%).DataProvider.CreateEvent

    TimeObject.AllDayEvent = False
    TimeObject.Body = ""
    TimeObject.BusyStatus = xtpCalendarBusyStatusBusy
    TimeObject.StartTime = YYYYMMDD2Format$(StartYYYYMMDD$, "dd Mmm yyyy") + "   " + Left$(StartHHMM$, 2) + ":" + Right$(StartHHMM$, 2)
    TimeObject.EndTime = YYYYMMDD2Format$(StopYYYYMMDD$, "dd Mmm yyyy") + "   " + Left$(StopHHMM$, 2) + ":" + Right$(StopHHMM$, 2)
    TimeObject.Importance = xtpCalendarImportanceHigh
    TimeObject.Location = ""
    TimeObject.MeetingFlag = True
    TimeObject.PrivateFlag = True
    TimeObject.Reminder = False
    TimeObject.ScheduleID = UniqueID$
    TimeObject.Subject = cTitle$
   
    OldCount% = frmMain.mCalendarControl(CtrlIndex%).DataProvider.GetAllEventsRaw.Count
    frmMain.mCalendarControl(CtrlIndex%).DataProvider.AddEvent TimeObject
    NewCount% = frmMain.mCalendarControl(CtrlIndex%).DataProvider.GetAllEventsRaw.Count
   
    If OldCount% = OldCount% Then
      MsgBox "Event not added to control #" + Trim$(Str$(CtrlIndex%)) & vbCrLf & vbCrLf & cTitle$ & vbCrLf & vbCrLf & Format$(TimeObject.StartTime, "Ddd Dd Mmm YYYY"), vbInformation, "Event not added to control #" + Trim$(Str$(CtrlIndex%))
    End If
  End If
End Sub