Load multiple resources and events

Public Sub BuildResourceItems(sNames As String)
    Dim arResources As New CalendarResources
    Dim pRes0 As New CalendarResource
    Dim pRes1 As New CalendarResource
    Dim NewEvent As CalendarEvent
    Dim pSchedules As CalendarSchedules
    Dim strConnectionString As String
    Dim sArray() As String
    Dim ldx As Integer
   
    strConnectionString = "Provider=Custom;Data Source="
    pRes0.SetDataProvider2 strConnectionString, True
    If pRes0.DataProvider Is Nothing Then
        Debug.Assert False
        Exit Sub
    End If
    If Not pRes0.DataProvider.Open Then
        If Not pRes0.DataProvider.Create Then
            Debug.Assert False
            Exit Sub
        End If
    End If
    '// ** schedules
 
    Set pSchedules = pRes0.DataProvider.Schedules
    sArray = Split(sNames, ",")
    For ldx = 0 To UBound(sArray)
        pSchedules.AddNewSchedule sArray(ldx)
    Next
    pRes0.DataProvider.Save
    
    pRes0.Name = pSchedules.Item(0).Name
    pRes0.ScheduleIDs.Add pSchedules.Item(0).Id
 
    ' Add first resource to array
    arResources.Add pRes0
 
        sArray = Split(sNames, ",")
    ' Add others (exclude first one)
    For ldx = 1 To UBound(sArray)
        Set pRes1 = New CalendarResource
        pRes1.Name = sArray(ldx)
        pRes1.ScheduleIDs.Add ldx
        ' set data provider from first resource
        pRes1.SetDataProvider pRes0.DataProvider, False
        arResources.Add pRes1
    Next
    CalendarControl1.SetMultipleResources arResources
 
        Set NewEvent = CalendarControl1.DataProvider.CreateEvent ' error problem occurs here

    NewEvent.StartTime = Now
    NewEvent.EndTime = Now
    NewEvent.Subject = "Product Meeting"
    NewEvent.ScheduleID = 1
    CalendarControl1.DataProvider.AddEvent NewEvent
 CalendarControl1.Populate
End Sub