Oracle Database Discussions

Dear All,

I am unable to connect to the oracle database, am using the below code for the same.
And server name is PRDCCB, my TNSNAMES.ORA file is placed properly, and environment variable path set done.
ADO objects libry created in VBA.
But still am not able to connect error is Driver's SQLSETConnectAttr Failed

PLease help



Sub Ora_Connection()

Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim query As String
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset


'---- Replace below highlighted names with the corresponding values

con.Open ("Driver={Microsoft ODBC for Oracle}; " & _
"CCBPRD=DESCRIPTION=" & _
"(ADDRESS=(PROTOCOL=TCP)" & _
"(HOST= 10.1.3.50)(PORT=1521))" & _
"(CONNECT_DATA=(SID=CCBPRD))); uid=Prasad; pwd=prasad23;")

'--- Open the above connection string.


'--- Now connection is open and you can use queries to execute them.
'--- It will be open till you close the connection
End Sub