oracle vba可信连接问题Windows 10 64位Ms Excel 64位

Dim con As Object Dim rs As Object Dim cmd As Object Dim query As String Set con = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") Set cmd = CreateObject("ADODB.Command") col = 2 strcon = "Provider=OraOLEDB.Oracle;" _ & "Data Source= (DESCRIPTION = (ADDRESS = (PROTOCOL = TCP)(HOST = SERVER_IP)(PORT = 1521)) (CONNECT_DATA = (SERVER = DEDICATED) (SERVICE_NAME = orcl.Multi-Act.Local))); " _ & "Initial Catalog=DatabaseName;" _ & "Trusted_connection=yes" con.Open (strcon) 

我收到一个错误，称为“运行时错误”2147217887（80040e21）“：自动化错误

没有可靠的连接这个代码工作正常。 但可信连接不能build立连接。 我已经安装了ODAC122010Xcopy_x64。