Error conexion con Oracle(ora-06413 conexión no abierta)

[YuLSoft]

Buenas hace 2 días estoy tratando de conectarme a una base de Datos Oracle 10g, desde vfp en mi Pc con Windows 7 64 Bits, tengo el siguiente código que me daba error ora-06413, el mismo código lo probé en una Pc Windows 7 32 Bits, y si funcionaba.

FUNCTION ConectarOra1

LOCAL loError AS EXCEPTION

TRY

WAIT WINDOW "Conectando a la Base de Datos..."

goConn = CREATEOBJECT("ADODB.Connection")

lcCadCnx = "Provider=OraOLEDB.Oracle.1;Password=miclave;Persist Security Info=True;User ID=miusuario;Data Source=Xe"

goConn.connectionstring = lcCadCnx

goConn.open()

CATCH TO loError

MESSAGEBOX(loError.Message,4112,"Error...!!!")

ENDTRY

WAIT CLEAR

ENDFUNC

*/

FUNCTION ConectarOra

PUBLIC gnConHandle

WAIT WINDOW "Conectando a la Base de Datos..." NOWAIT

SQLSETPROP(0,"DispLogin" , 3 ) &&desactivar el cuadro de dialogo de inicio de sesion ODBC

CURSORSETPROP("MapBinary", .T., 0)

lcCadenaCnx = "Driver={Microsoft ODBC For Oracle};Server=Xe;Pwd=miclave;UID=miusuario"

gnConHandle = Sqlstringconnect(lcCadenaCnx)

IF gnConHandle < 0

IF AERROR(laError) > 0

MESSAGEBOX("No fue posible establecer conexión: "+laError[2], 16, "Error")

WAIT CLEAR

ENDIF

ELSE

WAIT WINDOW "La Conexión con el servidor se realizó con Éxito...!" NOWAIT

ENDIF

WAIT CLEAR

ENDFUNC

*/

En Windows 64bits el vfp esta instalado en la ruta C:\Program Files (x86), al ejecutarse desde allí el vfp y tratar de conectarme a Oracle me sale ese error, al parecer el Oracle tiene problemas en el paréntesis (); así que mi solución fue crearle un vinculo simbólico a la ruta donde esta instalado el Vfp:

1.- Abrir cmd con privilegios de Administrador

2.- Digitar->mklink /j "Program Files x86" "Program Files (x86)"

3.- Presionar Enter

Y ejecutar el vfp desde C:\Program Files x86

Y funciona...!!!, adiós dolor de cabeza...

Salu2ssssss