循环记录集 vb6

Question

So, I've done this a million different ways but this is bothering me a bit. I'm trying to loop through a recordset, identify a number and compare to the next record. If they match, I want to change matching value. It seems to work, somewhat, but then I get all records as "Matched".... saying that there is 'No matched record'. I'm sure it's something dumb I'm missing so if anyone could point out my flaw here, that would be awesome! As always, thanks in advance!!!

    con.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\Books.mdb;" & _
"Jet OLEDB:Engine Type=4;"

rs1.Open "A", con, adOpenKeyset, adLockPessimistic, adCmdTableDirect
rs2.Open "B", con, adOpenKeyset, adLockPessimistic, adCmdTableDirect

rs1.MoveFirst
While Not rs1.EOF
    rs2.MoveFirst
    While Not rs2.EOF
         If rs1("ID").Value = rs2("ID").Value Then
         With rs2
            !Matching_Criteria = "Matched"
            .Update
            End With
         Else
             With rs2
            !Matching_Criteria = "UnMatched"
            .Update
            End With
         End If
        rs2.MoveNext
    Wend
rs1.MoveNext
Wend

Answer 1

1. Be sure that bot of tables are in monopoly access for you and/or use static rst (I don't remember clearly)

2. Populate both of rst's:

   .MoveLast
   .MoveFirst
   lCnt = .RecordsCount ' (engine wan't to format it ...)

3. Use For i = 1 to lCnt instead of While ... Wend .