Conexión a SQL SERVER 2000 mediante OLE DB

PowerBuilder desde la versión 10 no tiene soporte para conexiones nativas con Sql Server, en su reemplazo la conexión se realiza vía OLE DB y ADO.NET.

Pues bien ante este problema pondré el código que utilice para realizar la conexión  mediante OLE DB:

SQLCA.dbms="OLE DB" SQLCA.logid="sa" SQLCA.logpass="1234" SQLCA.servername="ATENA" SQLCA.DBParm="PROVIDER='SQLOLEDB',DATASOURCE='ATENA',PROVIDERSTRING='database=prueba'" connect; if sqlca.sqlcode<>0 then    MessageBox ("ERROR", "Error en conexión" + sqlca.sqlerrtext)    return   end if messagebox("Exito","Se Conecto a la Base de Datos")

Detalles del servidor:

Nombre de Servidor: "ATENA"
Nombre de Base Datos: "prueba"
Usuario para conexion: "sa"
Contraseña del usuario: "1234"