[new_programer]

السلام عليكم 

كل عام وانتم جميعا بخير 

لدي دالة  تقوم براجع القيمة True  Or False

لكن انا اريد ارجاع القيمة 0   او    1 
لكن عند تحقق القيمة 1   بترجع -1  
اريد القيم ترجع 1
مرفق الكود 

كود :

Public Function CheckPermiss(ByVal ColumnName As String, ByVal UserCodeID As Integer)
       Dim NumberUSR As Integer                       'Count_ID_UserPass(txt_username.Text, txt_pass.Text) If CheckPermiss("Frm_Save", mUserCode, "1") = 0 Then
       'Dim NumberUSR As String
       Try
           Dim cmd As New SqlCommand("select " & ColumnName & " from UserPermissionsTbl where UserCodeID=@UserCodeID", conn)
           cmd.Parameters.Add("@UserCodeID", SqlDbType.Int).Value = UserCodeID
         
           If conn.State = ConnectionState.Closed Then conn.Open()
           NumberUSR = cmd.ExecuteScalar
           conn.Close()
       Catch ex As Exception
           NumberUSR = 0
           conn.Close()
       End Try
       Return NumberUSR
   End Function