运行时错误'3706'b应用程序定义或对象定义的错误

Question

我正在尝试使用excel vba连接到oracle。我在建立连接时遇到问题，并且遇到运行时错误3706。该如何解决？

这是我的代码：

Sub ConnectDB
Dim cn As ADODB.connection
Dim rs As ADODB.recordSet
Dim mtxData As Variant

Set cn = New ADODB.connection
Set rs = New ADODB.recordSet

cn.Open (
"User ID = username" & _
";Password = password" & _
";Data Source = dbname" & _
";Provider = OraOLEDB.Oracle")

Set rs = Nothing
Set cn = Nothing

End Sub