Vb6 在没有迭代器的ADO.Net中添加多个记录

我正在用VB6编写一个遗留的ADO.Net代码。当前代码遍历字典，并为字典中的每个键的记录集rs创建一个新记录。这是当前代码（rs是一个记录集）：

我想优化上面的代码并批量添加记录。大概是这样的：

Dim fieldOne As New Collection

Dim fieldTwo As New Collection

Dim valueOne As New Collection

Dim valueTwo As New Collection

For Each k In dictionary.Keys   

    fieldOne.Add (field1)
    fieldTwo.Add (field2)
    valueOne.Add (value1)
    valueTwo.Add (dictionary(k))

Next

rs.AddNew Array(fieldOne, fieldTwo), Array(valueOne, valueTwo)

rs.UpdateBatch

---

是否可以在ADO.Net记录集中的一个Add语句中创建多个记录？在这种情况下，我如何绕过迭代器，因为我不仅有多个字段，而且字段也有多个值？

这不起作用。相反，尝试将rs.Update从循环内移动到循环后。这应该允许批量更新。这里有问题。VB6和ADO.Net不能很好地混合。真正涉及到什么？它看起来像ADO，而不是ADO.Net。

Dim fieldOne As New Collection

Dim fieldTwo As New Collection

Dim valueOne As New Collection

Dim valueTwo As New Collection

For Each k In dictionary.Keys   

    fieldOne.Add (field1)
    fieldTwo.Add (field2)
    valueOne.Add (value1)
    valueTwo.Add (dictionary(k))

Next

rs.AddNew Array(fieldOne, fieldTwo), Array(valueOne, valueTwo)

rs.UpdateBatch