获取运行时错误＆＃39; 3706＆＃39;在Excel中使用VBA连接到Oracle DB时出错

Question

我正在尝试使用ODBC数据源连接器（名为Demo_DSN）首次连接到Oracle DB。当我进入（F8）时，代码正在提供运行时错误＆＃39; 3706＆＃39;应用程序 - 已定义或对象定义的错误

Sub ConnectToOracle()

    Dim cn As ADODB.Connection
    Dim rs As ADODB.RecordSet
    Dim mtxdata As Variant

    Set cn = New ADODB.Connnection
    Set rs = New ADODB.Recordset

    cn.Open ( _
    "User ID = XXGMDMADM" & _
    ";Password=xxgmdmadmdb" & _
    ";Data Source= Demo_DSN" &_
    ";Provider= OraOLEDB.Oracle")

    'Cleanup in the end
    Set rs = Nothing
    Set cn = Nothing

End Sub