I've been trying to connect to an Oracle database for the first time via VBA (Excel 2013). I added the reference for Microsoft ActiveX Data Objects 6.1 Library already. I keep getting the following error when it tries to run the c.Open line below:

"Run-time error '-2147467259 (80004005)': Automation error Unspecified error

Here's the VBA I'm working with so far, I copied the connect string directly from what our Oracle DBA gave me.

Sub OracleConnect()
Dim rs As ADODB.Recordset, c As New ADODB.Connection, r As Range
c.ConnectionString = "Driver={Microsoft ODBC for Oracle};CONNECTSTRING=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=MyHOST)(PORT=1521))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=MySvcName)));UID=MyUID;PWD=MyPwd;"
c.Open
rs.Open "select * from MyTable", c, adOpenStatic, adLockReadOnly
Set ws = ActiveWorkbook.Sheets("Test")
Set r = ws.Range("A1")
r.CopyFromRecordset rs
rs.Close
c.Close
End Sub