I'd like to fill up an object array with recordsets. Let's say I have

dim aobjArr(1) as object
dim rst as recordset

rst.activeconnection = myConn
rst.source = "SELECT * FROM tblA;"
rst.open

set aobjArr(0) = rst

set datagrid1(0).datasource = aobjArr(0) 'works fine so far

rst.close

rst.source = "SELECT * FROM tblB;"
rst.open

set aobjArr(1) = rst

set datagrid1(0).datasource = aobjArr(0)
set datagrid1(1).datasource = aobjArr(1) 'the two datagrids will be filled with identical data from the second query.

How can I overcome this? How can I pass the real thing and not just a reference? Is it possible to make one object BECOME another one and have all it's properties and when the one object changes the other won't?

Like when I do

set rstA = rstB

as soon as I change rstA, rstB will change too. I don't want that. What do I have to do?

thx,

Helger