Code For Assign Permission to Tables,Views and Store procedure

DECLARE @ObjectName varchar(100) = ''
			,@QUERY varchar(150) = ''

	WHILE EXISTS (SELECT 1 FROM SYS.OBJECTS WHERE Name > @ObjectName 
        AND TYPE IN ('P', 'U', 'V'))
	BEGIN
		SELECT TOP 1
			 @QUERY = 'GRANT' + CASE WHEN TYPE = 'P' THEN '
                          EXECUTE ' ELSE ' SELECT ' END + 
                         'On [dbo].['+ NAME +'] TO KABCO'
			,@ObjectName = NAME
		FROM SYS.OBJECTS
		WHERE Name > @ObjectName
		AND TYPE IN ('P', 'U', 'V')
		ORDER BY TYPE, Name

		PRINT (@QUERY)
		EXEC (@QUERY)

		SET @QUERY = ''
	END