possible loop code for trivia not sure
con.Open _
“Provider=Microsoft.Jet.OLEDB.4.0;” & _
“Data Source=” & App.Path & “\Books.mdb;” & _
“Jet OLEDB:Engine Type=4;”
‘Are “A” and “B” stored Views?
rs1.Open “A”, con, adOpenKeyset, adLockPessimistic, adCmdTableDirect
‘##########################################
‘Make sure, Query “B” returns Matching_Criteria=”UnMatched”
‘SELECT ID, Description, “UnMatched” As Matching_Criteria FROM MyTableB ORDER BY ID
‘The “UnMatched”-Value corresponds to the Field-Position of Matching_Criteria, in this Case Column 3 (resp. Field(2) in the Fields-Collection)
rs2.Open “B”, con, adOpenKeyset, adLockPessimistic, adCmdTableDirect
‘##########################################
rs1.MoveFirst
Do While Not rs1.EOF
rs2.MoveFirst
Do While Not rs2.EOF
If rs1(“ID”).Value = rs2(“ID”).Value Then
With rs2
!Matching_Criteria = “Matched”
.Update
End With
Exit Do
End If
rs2.MoveNext
Loop
rs1.MoveNext
Loop