Lo normal es hacerlo en el evento Open del Objeto Aplicación:
//Para conectar a SQL Server 2000
// En modo Ejecución
SQLCA.DBMS = "MSS Microsoft SQL Server"
SQLCA.AutoCommit = False
SQLCA.Database = "NOMBRE_BD"
SQLCA.LogPass = "PASSWORD_USER"
SQLCA.ServerName = "NOMBRE_SERVER"
SQLCA.LogId = "USER_ID"
CONNECT USING SQLCA;
IF SQLCA.SQLCODE <> 0 THEN
messagebox('Error de Conexión :' + string(SQLCA.SQLDBCODE),'Se produjo un error al realizar la conexión a la BD.~n' + SQLCA.SQLERRTEXT,exclamation!)
ROLLBACK USING SQLCA;
DISCONNECT USING SQLCA;
HALT
ELSE
//Conectado...
END IF
Lógicamente a partir del nombre de la BD cambian los parámetros según tu lo requieras.
// En modo Diseño
Menu Tools / DataBase Profile
Luego seleccionas MSS Microsoft SQL Server y presionas el Botón New y configuras de acuerdo a lo anterior
Cualquier duda nos avisas....
Suerte !
