تعديل بعض السجلات بشرط معين

ألا توجد أى طريقة لذلك ؟

ألا توجد أى طريقة لذلك ؟

هذا هو الكود الذى أعرفه

With Adodc1.Recordset
    .MoveFirst
    Do Until .EOF
        If .Fields("AGE") > 60 Then .Fields("SALARY") = 4000: .Update
    If Not .EOF Then .MoveNext
    Loop
End With

  فهل من كود أسهل من ذلك بحيث لا  يمر على جميع السجلات(500 سجل مثلآ)
و فى كل مرة يقرأ الشرط        If .Fields("AGE") > 60 Then .Fields("SALARY") =4000
ليعدل لى فى النهاية 4 أو 5 سجلات مثلآ

ولكم ألف شكر

عرفت الحل   والحمد لله
من أراد معرفة الحل فليفتح الرابط  http://vb4arb.com/vb/thread-16758.html
وليقرأ حل الأستاذ/ Ahmed_Mansoor