Как показывает ошибка, в вашей системе нет драйвера SQL Server , использующего ваш скриншот. Однако в вашей системе отображается ODB C Драйвер 13 для SQL Сервер имя, другая версия, как ODB C Драйвер 11 для SQL Сервер и ODB C Драйвер 17 для SQL Сервер . Поэтому переименуйте соответственно:
con <- DBI::dbConnect(odbc::odbc(),
Driver = "ODBC Driver 13 for SQL Server",
Server = "***",
Database = "***",
Trusted_Connection = "Yes")