خطأ في كود

السلام عليكم ورحمة الله وبركاته .. وبعد ،،

حاولت أن اطبق فكرة الأخ الكريم / عادل القاسمي فيما يتعلق بالصلاحيات وقد نجحت معي ، ولكن بقيت مشكلة واحدة وهي عندما اقوم بفتح النموذج المسمى (frm-AddUser) بقاعدة البيانات المرفقة تظهر لي رسالة خطأ وهي :

Object variable or with block variable not set

رغم أني لم أغير أي شىء في أكواد النموذج المذكور .

Private Sub cmdAdd_Click()
   If IsNull(Trim(Me.NewUser)) Then
      MsgBox (" يجب أن تقوم بإدخال اسم للمستخدم الجديد ")
      Me.NewUser.SetFocus
      Exit Sub
   End If
   UsN = Trim(Format(Me.NewUser, ">"))

   ' من هنا تظهر المشكلة

   Set UserRS = DB.OpenRecordset(" SELECT tbl_User.* FROM tbl_User where tbl_User.user_name='" & UsN & "';", dbOpenDynaset)
   If UserRS.RecordCount = 0 Then
      UserRS.AddNew
      UserRS!user_name = UsN
      UserRS!user_pass = UsN
      UserRS.Update
      MsgBox (" تم إضافة المستخدم الجديد بنجاح ")
      MsgBox (" كلمة السر المؤقتة هي نفس اسم المستخدم ( " & Trim(Me.NewUser) & " ) يجب تغييرها بعد ذلك ")
   Else
      MsgBox (" الاسم المدخل موجود من قبل ")
   End If
   UserRS.Close
Me.NewUser = Null
Me.NewUser.SetFocus
End Sub

أرجو مساعدتي في حل هذه المشكلة جزاكم الله الف خير

الصلاحيات.rar