Unable To Merge Two Stand-alone Recordsets

I have two stand-alone recordsets. They have the exactly the same fields definitions. They come from different ADODB connections (Microsoft Jet). And I cannot merge them into one recordset.



I was trying to merge the second recordset into the first, but instead of adding the records, the first recordset becomes populated with infinite copies of the first record of the second recordset. This seems to me a VB6 bug.



Any help on how to go around this problem will be really appreciated. Thanks a lot. Frank



This is the code:



(Please note, the INVENTORY table contains different data but has the same structure in both databases.)




Code Snippet

Dim S1ADO As New ADODB.Connection

Dim S2ADO As New ADODB.Connection



S1ADO.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Z: [...]"

S2ADO.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Y: [...]"



RS1.Open INVENTORY, S1ADO, adOpenDynamic, adLockOptimistic
RS2.Open INVENTORY, S2ADO, adOpenDynamic, adLockOptimistic


RS2.MoveFirst

While Not RS2.EOF

RS1.AddNew

For A=0 to RS1.Fields(A).Count - 1

RS1.Fields(A).Value = RS2.Fields(A).Value

Next

RS1.Update

RS2.MoveNext

Wend