[Taha Okla]

فقط أعد تفعيل الـ ('  Exit Sub) إلى (Exit Sub)

كود :

   Public tPwd As Int16 = 0
   Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click

       If cboUser.Text = "" Then cboUser.Focus() : Exit Sub
       If txtPass.Text = "" Then txtPass.Focus() : Exit Sub
       If Check_user() = False Then
           MsgBox("كلمة المرور لهذا المستخدم غير صحيحة", MsgBoxStyle.Critical, "رسالة خطأ")
           tPwd += 1
           TextBox1.Text = 3 - tPwd
           If tPwd = 3 Then FRM_mainmenu.Close()
           Exit Sub
       End If
       'تعريف متغير لجملة الاستعلام

       Dim sql = "select * from user_data WHERE user_name='" & cboUser.Text & "'"
       'تشييد موصل البيانات داتا ادبتر
       Dim Adp = New OleDb.OleDbDataAdapter(sql, DBConn)
       'تشيد مجموعة البيانات
       Dim ds = New DataSet
       'ملىء مجموعه البيانات
       Adp.Fill(ds)
       'وضع الجدول في كائن من نوع جدول
       Dim dt = ds.Tables(0)
       If dt.Rows.Count > 0 Then
           Dim dr As DataRow
           dr = dt.Rows(0)

           SavePermission = dr!Save_
           UpdatePermission = dr!Update_
           DeletePermission = dr!Delete_
           PrintPermission = dr!Print_
           FRM_mainmenu.btn_Stock.Enabled = dr!Stock_Scr
           FRM_mainmenu.btn_Accounting.Enabled = dr!Accounting_Scr
           FRM_mainmenu.btn_Invoice.Enabled = dr!Invoice_Scr
           FRM_mainmenu.btn_Voucher.Enabled = dr!Voucher_Scr
           FRM_mainmenu.btn_Report.Enabled = dr!Report_Scr
           FRM_mainmenu.btn_Users.Enabled = dr!Users_Scr
           UserName = dr!user_name
           FRM_mainmenu.currentUser.Text = UserName

           Adp.Dispose()
           ds.Dispose()
           dt.Dispose()
           Me.Close()


       End If




   End Sub