Просто добавьте этот параметр:
Application Name=My app name;
Вот пример.Я бы не советовал использовать DSN или устаревшие драйверы {SQL Server}, если вы действительно не используете SQL 2000 или более раннюю версию.
conn_string = "Provider=SQLNCLI10;Data Source=x.x.x.x;Initial Catalog=dbname;" & _
"User ID=xxx;Password=xxx;Application Name=my funky chicken;"
У вас может не быть самой последней версии собственного клиента SQL,поэтому вам может потребоваться использовать независимое от версии имя поставщика:
conn_string = "Provider=SQLNCLI;Data Source=x.x.x.x;Initial Catalog=dbname;" & _
"User ID=xxx;Password=xxx;Application Name=my funky chicken;"
Если у вас не установлен собственный клиент SQL, его можно установить отсюда ( x86 | x64 ) или возврат к OLEDB:
conn_string = "Provider=SQLOLEDB.1;Data Source=x.x.x.x;Initial Catalog=dbname;" & _
"User ID=xxx;Password=xxx;Application Name=my funky chicken;"
Я протестировал все три строки подключения выше и проверил, что Profiler (ApplicationName), sp_who2 (ProgramName) и sys.dm_exec_sessions (program_name)показал "мою классную курицу".