[comeps]

السلام عليكم
أرغب في معرفة المشكلة في الكود الذي تم انشاؤه للمقارنة بين جدولين بحيث يتم مقارنة جميع السجلات في الجدول رقم ١ مع السجلات في جدول رقم ٢ على سبيل المثال يتم مقارنة رقم ١ في الجدول رقم ١ في حال وجود أي قيمة له في جدول رقم ٢ وفي حال وجد يتم اضافة كلمة مطابق وعدا ذلك غير مطابق وهكذا حتى يتم الانتهاء من جميع السجلات في جدول رقم ١ 

يرجى المساعدة في الكود الصحيح الذي يؤدي العملية بالشكل الصحيح

كود :

If rs1("customerid").Value = rs2("customerid2").Value Then
       rs1.MoveNext()
       Do While Not rs2.EOF()

           rs1("Matching").Value = "Matched"
           rs1.Update()
           rs2.MoveFirst()
       Loop

   End If