Multiple Resources

Hi,

I do not think that this is a real problem.
Just a cooding style.
 
The code before
    do...while
need to create a data provider in first resource and use it for all others.
 
But you can easily rewrite this code.
 
for example:
-----------------------------------------------------------------
   Dim pDataProvider as CalendarDataProvider
 
   Do While Not rsStaff.EOF
       I = I + 1
 
       pSchedules.AddNewSchedule rsStaff.Fields("Name").Value
       Set pRes1 = New CalendarResource
               
       if I == 1 then
            pRes1.SetDataProvider2 "connection string", True
            set pDataProvider = pRes1.DataProvider
       else
           pRes1.SetDataProvider pDataProvider, False
       endif
 
       pRes1.Name = rsStaff.Fields("Name").Value
       pRes1.ScheduleIDs.Add I
       arResources.Add pRes1
      rsStaff.MoveNext
   Loop

 
Also to free memory correctly, you have to set bCloseDataProviderWhenDestroy = True for one resource.

--
WBR,
Serge

And what exactly do you want to improve? What's your problem?