可以通过将 RecordSet 中的数据转存到一个数组中，然后在数组中进行迭代。这样可以确保迭代顺序始终不变。以下是示例代码：

Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\myDatabase.mdb"

Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM myTable", conn, adOpenStatic

'将 RecordSet 中的数据转存到数组中
Dim myArray()
myArray = rs.GetRows()

'在数组中进行迭代
For i = 0 To UBound(myArray, 2)
    '进行迭代操作
Next

rs.Close
conn.Close

在这个示例中，我们首先打开数据库连接，并使用 Recordset 打开 myTable 表中的数据。然后我们将 Recordset 中的数据转存到一个数组中，并在数组中进行迭代操作。通过这种方式，我们可以确保迭代顺序始终不变，从而避免了可能的问题。