I do not know what to say?
Here is my test code, adapted from another test I did for another forum
Code:
Sub testWithLoop()
Dim db As DAO.Database, rs As DAO.Recordset, rs1 As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Select Top 20 ID from Transactions")
rs.Filter = "ID < 10"
Set rs1 = rs.OpenRecordset
rs.MoveLast
rs1.MoveLast
rs.MoveFirst
rs1.MoveFirst
Debug.Print rs.RecordCount
Debug.Print rs1.RecordCount
Do Until rs.EOF
With rs
Debug.Print "rs is " & !ID
With rs1
Debug.Print "rs1 is" & !ID
.MoveNext
End With
.MoveNext
End With
Loop
Set rs = Nothing
Set rs1 = Nothing
Set db = Nothing
End Sub
and here is the output in Debug
Code:
20
7
rs is 2
rs1 is2
rs is 3
rs1 is3
rs is 4
rs1 is4
rs is 6
rs1 is6
rs is 7
rs1 is7
rs is 8
rs1 is8
rs is 9
rs1 is9
rs is 10