[ahmed99]

اتمنى ان تستفيد بما ساطرحه لك 
سنقوم بكتابة هذا الكود بداخل الحدث click للزر رقم 1 
وشكرا

كود :

If Rs.State = adStateOpen Then Rs.Close
Rs.Open "Select * From [we] ", dB, adOpenKeyset, adLockPessimistic
Do While Not Rs.EOF
     If Trim(("class")) <> "" Then
         Rs.Update
       Rs![Class] = Text3.Text
         Rs.Update
     End If
   Rs.MoveNext
  Loop

وهذا الملف جاهز بعد التعديل عليه