Excel 2016 VBA Connection

We use Excel 2010 VBA connections to run Teradata scripts (both inserts of data from Excel to user tables and selects to populate excel from teradata tables).  The VBA is like this:
Public Function Teradata_Connection()
Dim constr
pwd = frmTDconnection.txtPwd.Text
uid = frmTDconnection.txtUsr.Text
On Error GoTo Invalid
constr = "Driver={Teradata};DBCNAME=oneview;UID="& uid & ";PWD="& pwd & ";"
Set Cn = New ADODB.Connection
Set rs = New ADODB.Recordset
If Cn.State <> 1 Then
    Cn.ConnectionTimeout = 60
    Cn.CommandTimeout = 3600
    Cn.Open constr
End If
Teradata_Connection = True
Exit Function
Invalid:
MsgBox ("There was error number "& Err.Number & ".  This is "& Err.Description & ".")
Exit Function
End Function
 
Since my Office 2016 upgrade, it no longer works.  I get the error message:
"There was error number -214217843.  This is [Teradata][ODBC Teradata Driver] Not enough information to log on."
Any ideas on how to fix it?