For i = 1 To 5
        Set rs = db.OpenRecordset("MyQuery")  '<=== Nach jedem Durchgang dauert 
        ' es hier länger
        If Not rs.BOF And Not rs.EOF Then
            'machwas
        End If
 
        Set rs1 = db.OpenRecordset("MyQuery2")
        If Not rs1.BOF And Not rs1.EOF Then
            'machwas
        End If
 
        Set rs = Nothing
        rs.close
        Set rs1 = Nothing
        rs1.close
 
    Next i