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

[محروم.كوم]

<div>فى لغة ال VB6
لدى قاعدة بيانات بها جدول EMPLOYEE به حقل للعمر AGE وحقل للمرتب SALARY

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