A palavra-chave correta para definir o nome do aplicativo em uma string de conexão ADODB no VBA é
APP , não Application Name . Cadeia de conexão de exemplo, copiada de um aplicativo MS Access em que estou trabalhando:
DRIVER={SQL Server};SERVER=xxxx;DATABASE=xxxx;Trusted_Connection=Yes;APP=xxxx
