Procedure or function <stored procedure> has too many arguments specified.

Public Function addRole(ByVal roleName As String, ByVal roleWeighting As Integer, ByVal roleStatus As Integer, ByVal userID As Integer) As Boolean
        Dim con As New SqlConnection(ConnectionStrings("dev").ConnectionString)
        Dim cmd As New SqlCommand("sp_addRole", con)
        cmd.CommandType = CommandType.StoredProcedure
 
        cmd.Parameters.AddWithValue("@roleName", roleName)
        cmd.Parameters.AddWithValue("@roleWeighting", roleWeighting)
        cmd.Parameters.AddWithValue("@roleStatus", roleStatus)
        cmd.Parameters.AddWithValue("@userID", userID)
 
        Dim result As Boolean = False
        Try
            con.Open()
            cmd.ExecuteNonQuery()
            result = True
        Catch ex As Exception
            JCBSecurity.logEntry(ex.Message, "Class: roles", "Procedure: addRole", roleName, roleWeighting, roleStatus, userID)
            result = False
        Finally
            con.Close()
        End Try
 
        Return result
    End Function
 
PROCEDURE sp_addRole
	-- Add the parameters for the stored procedure here
	@roleName varchar(50),
	@roleWeighting int,
	@roleStatus int,
	@userID int
AS
BEGIN try
	-- SET NOCOUNT ON added to prevent extra result sets from
	-- interfering with SELECT statements.
	SET NOCOUNT ON;
 
    -- Insert statements for procedure here
	declare @dtStamp datetime
 
	set @dtStamp = getdate()
 
	insert into dbo.usr_roles (
		RoleName,
		RoleWeighting,
		RoleStatus,
		DateCreated,
		CreatedBy) values (
		@roleName,
		@roleWeighting,
		@roleStatus,
		@dtStamp,
		@userID)
 
	-- Log it
	Exec dbo.sp_logEntry 'New Role Added', @userID, @roleName, @roleWeighting, @roleStatus
END try
 
begin catch
	If @@TRANCOUNT > 0
		ROLLBACK
 
	-- Error log entry
	Declare @errMsg nvarchar(4000), @errSeverity int, @errProcedure nvarchar(4000), @errLine int
 
	Select @errMsg = ERROR_MESSAGE(), 
		@errSeverity = ERROR_SEVERITY(), 
		@errProcedure = ERROR_PROCEDURE(),
		@errLine = ERROR_LINE()
 
	Exec dbo.sp_logEntry 'SYSTEM ERROR', @errMsg, @errSeverity, @errProcedure, @errLine
end catch