VB Macro ADODB connection fails after the teradata upgraded to teradata 15

Connectivity
Visitor

VB Macro ADODB connection fails after the teradata upgraded to teradata 15

I had develeped a tool in Excel 2010 using VB macro which require connction to Teradata.

I have used the below connection string it worked flowlessly when I was using teradata 13. After the update to teradata 15 upgrade. it throws error

                       Run-time error '-2147467259(80004005)':

                       Microsoft ODBC driver manager driver SQLAllocHandle on SQL_HANDLE_ENV failed.

Please help mi rectifying this

Below is the connection string used.

Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sconnect As String

sconnect = "Data Source=" & Trim(Data_Source) & " ;User ID =" & Trim(User_Id) & " ;Password=" & Pass_Word

Conn.Open sconnect