Connection string to Server

  • Hi - My office recently moved to O365 and we also received some TLS security updates to our servers. I have several VBA Excel macros connecting to the server that are no longer working. I am now receiving Connection failed - SQL Server Error 772 - TCPIP Socket

    I have tried to change my code but still having issue. Any advise is appreciated.

    Original Code

    Worksheets("CALC_REF").Range("Z1") = "ODBC;Description=CI Dev Server;DRIVER=SQL Server;SERVER=DBVEPxxxxxxx;UID=" & USR & ";APP=Microsoft Data Access Components;WSID=" & WS & ""