Primero, el planteamiento que haces está muy confuso.
Segundo, lo que entendí en la primera parte es lo siguiente –quieres que aparezca dos etiquetas en el mismo predio- Para ello es sencillo y ya se ha tocado antes este tema, solo busca un poco, para ser rápidos:
Function FindLabel ( [CVE_CAT_ORI_1], [NOMBRECOMPLETOV] )
FindLabel = [CVE_CAT_ORI_1] & VBNewLine & [NOMBRECOMPLETOV]
End Function
Con ello pondrá las dos etiquetas en dos líneas separadas para cada predio.
Tercero, si por el planteamiento que expones aquí, lo que quieres es identificar si un atributo en una columna es igual al atributo de otra columna, lo ideal es hacer una consulta en la tabla para ver que registros son los que se repiten. En caso que quieras que aparezcan en la etiqueta tendrías que modificar el script con algo parecido a esto:
Function FindLabel ( [CVE_CAT_ORI_1], [NOMBRECOMPLETOV] )
If ([CVE_CAT_ORI_1] = [NOMBRECOMPLETOV]) Then
FindLabel = [CVE_CAT_ORI_1] & VBNewLine & [NOMBRECOMPLETOV]
End If
End Function
Con lo anterior solo aparecerán las etiquetas en las que los atributos de [CVE_CAT_ORI_1] y [NOMBRECOMPLETOV] sean iguales.
Saludos.