Power Builder - Como me conecto a una Bd remota

Hola a todos, agradeceria sus respuestas si me podrian decir como me puedo conectar a una base de datos remota, yo estoy trabajando con el Microsoft SQL Server, bueno esto se encuentra en el servidor la version es 2000, y la aplicacion q estoy realizando esta en Power Builder 9 y en realidad no puedo conectarme a la Bd remota, ademas q script poner en el evento open de la aplicacion ya q es ahi donde especifico la la Base de datos..de antemano gracias por las respuestas..un saludos desde Madre de >Dios Peru

Para mi caso. yo tambien trabajo con SQL Server y power 9. y actualmente me conecto de la siguiente manera.
1. tengo un archivo sistema.ini en el path de mi sistema.
2. tengo una entrada en el archivo ini con los siguientes datos.
[SISTEMA]
DBMS=MSS Microsoft SQL Server 6.x
DataBase=NOMBRE_DEMI_BD
UserId=""
DBPass=""
LogID="SA"
LogPass=""
ServerName=.
DBParm=""

3. para hacerlo mas facil en el open del aplicacion lee los datos del archivo ini.
gs_ini = GetCurrentDirectory() + "\sistema.ini"

SQLCA.DBMS = ProfileString(gs_ini,"SISTEMA","DBMS","")
SQLCA.DataBase = ProfileString(gs_ini,"SISTEMA","DataBase","")
SQLCA.UserId = ProfileString(gs_ini,"SISTEMA","UserdId","")
SQLCA.DbPass = ProfileString(gs_ini,"SISTEMA","DBPass","")
SQLCA.LogId = ProfileString(gs_ini,"SISTEMA","LogID","")
SQLCA.LogPass = ProfileString(gs_ini,"SISTEMA","LogPass","")
SQLCA.ServerName = ProfileString(gs_ini,"SISTEMA","ServerName","")
SQLCA.DBParm = ProfileString(gs_ini,"SISTEMA","DBParm","")
SQLCA.Lock = false

Connect Using SQLCA;
If SQLCA.SQLCode <> 0 Then
MessageBox("Error de Conexión","Error al Conectarse con la BD " + SQLCA.SQLErrText)
return -1
End if
Open(w_mdi)

quisiera saver el script de tu conexión.

saludos.

Hola Jorge este es mi forma de conectarme pero en si es un conexion monousuario o local, en realidad quiero saber como es la conexion a un servidor ya q nunca lo he realizado....recien voy a probar el script q me enviaste y bueno te estare escribiendo cualquier novedad..saludos..

gt_neona= create transaction
gt_neona.DBMS = "ODBC"
gt_neona.AutoCommit = False
gt_neona.DBParm = "ConnectString='DSN=S_neona;UID=sa;PWD='"

If gt_neona.sqlcode = 1 then
Messagebox("Mensaje del Sistema","Error de conexion de BD!!", StopSign!)
Rollback using gt_neona;
Halt;
Else
Connect using gt_neona;
open(w_inicio)

End if