Lograr conexion con Oracle via ADO

[MarioDava]

Hola a todos,

Definitivamente necesito ayuda, que me esta fallando para lograr la conexion con mi base de Oracle 10g.

Mi codigo:

#include 'FiveWin.ch'
#include 'Ado.CH'

Main()

Local oCon, xConnStr

TRY
oCon:=toleauto():new("adodb.connection")
CATCH oError
MsgStop(oError:Operation,"Ado Connection")
END
TRY
xConnStr := "Provider=OraOLEDB.Oracle;Data Source=201.140.1.210:1521/cbs;Port:1521;User ID=cbs;Password=cbs;"
oCon:Open( xConnStr )
msginfo("nos hemos conectado a Oracle utilizando Ado")
CATCH oError
MsgStop(oError:Operation,"Ado Open")
END

El error que me manda es un mensaje tipo:

MsgStop( 'Open', 'Ado Open' ), este error lo marca en el comando oCon:Open( ....

simplemente no logro la conexión, los mismos datos de xConnStr, los tengo en mi archivo tnsnames.ora y si logro conectarme a la base por TOAD.

Por otro lado Provaider= OraOLEDB, no estoy seguro que tenga los archivos correctos, porque al buscar en mis archivos en c:\Oracle\product\10.1.0\Client_1\BIN\ solo tengo las siguientes DLL:

OraOLEDB10.dll
OraOLEDB10.tlb
OraOLEDB10e.dll
OraOLEDB10us.dll
OraOLEDBgmr10.dll
OraOLEDBpus10.dll
OraOLEDBrfc10.dll
OraOLEDBrmc10.dll
OraOLEDBrst10.dll
OraOLEDButl10.dll

Como pueden notar estoy usando OLE DB de Oracle.

De antemano agradezco la ayuda.

Saludos,
Mario A. Dávalos
México, D.F.