I'm trying to creat an array of collection without success.

I have a Class called "MyClass"
In the control module I use the following commands:
Dim myCollections() as Collection

Redim myCollections(7) 'assume I have 7 collections to populate

As I loop through the data rows, I populate the class "MyClass"
and them based on the content of a field(0-6), add it to the appropriate
collection(i).

'here's how I add the class to the collection
Call myCollection(i).add(Item:=myClass)

For the first data row (i=0), the myCollection(0).item(1) is correct

My problen is when the second data row is read with a different index (i=1)
I end up with myCollection(0).item(1) being updated as myCollection(1).add is
executed.

Why would myCollection(0) be changed when I add to myCollection(1)?

Thanks,
- Pat

> I'm trying to creat an array of collection without success.
>
> I have a Class called "MyClass"
> In the control module I use the following commands:
> Dim myCollections() as Collection
>
> Redim myCollections(7) 'assume I have 7 collections to populate

Redim myCollections(1 to 7)

>
> As I loop through the data rows, I populate the class "MyClass"
> and them based on the content of a field(0-6), add it to the appropriate
> collection(i).
>
> 'here's how I add the class to the collection
> Call myCollection(i).add(Item:=myClass)
>
> For the first data row (i=0), the myCollection(0).item(1) is correct
>
> My problen is when the second data row is read with a different index
> (i=1)
> I end up with myCollection(0).item(1) being updated as myCollection(1).add
> is
> executed.
>
> Why would myCollection(0) be changed when I add to myCollection(1)?

Watch for typos - is it myCollection or myCollections?