password expired ado and vb6

My question is...if the psw expire, is possible to renew via vb6 code? the connection string is:

....

Set CON = New ADODB.Connection
CON.ConnectionString = "PROVIDER=MSDASQL;"& _
"DRIVER={Teradata};"& _
"DBCName=10.xxx.x.xxx;"& _
"DefaultDatabase=DFC;"& _
"UID=oixxxx;"& _
"PWD=Nove.2015;"
CON.Open
....