ما النقص في كود التعديل هذا؟؟ لو تكرمتم

Private Sub Command3_Click()

'كود تأكيد انشاء حساب مستخدم بصلاحية انشاء المستخدمين

If Check8.Value = 1 And Check7.Value = 1 And Check6.Value = 1 And Check5.Value = 1 Then

ask1 = MsgBox("لقد قمت باعطاء هذا المستخدم كافة صلاحيات المدير ! وفي مثل هذه الحالة سيكون له صلاحية اضافة المستخدمين الجدد مع امكانية اعطائهم كافة الصلاحيات ! في حال رغبتك الاستمرار اضغط زر نعم", vbInformation + vbMsgBoxRight + vbYesNo, "!! تنبيه")

If ask1 = vbNo Then

Exit Sub

End If

'كود التعديل

SQLs = " select * from users where user_name = '" & Text4 & "'"

If rs.State = adStateOpen Then rs.Close

rss.Open SQLs, db, adOpenKeyset, adLockPessimistic

If rs.EOF Then

'كود انشاء الصلاحيات

If Check5.Value = 1 Then

rs![gadd] = True

Else

rs![gadd] = False

End If

If Check6.Value = 1 Then

rs![gprint] = True

Else

rs![gprint] = False

End If

If Check7.Value = 1 Then

rs![gedit] = True

Else

rs![gedit] = False

End If

If Check8.Value = 1 Then

rs![gcreat_acount] = True

Else

rs![gcreat_acount] = False

End If

rs.Update

'رسالة نجاح الاضافة

MsgBox "تم تعديل صلاحيات المستخدم بنجاح", vbInformation + vbMsgBoxRight, "الحالة"

End If

'كود تفريف المدخلات

Text4 = ""

Check5.Value = 0

Check6.Value = 0

Check7.Value = 0

Check8.Value = 0

Command3.Enabled = False

End If

End Sub