Tienes que utilizar el comando ProfileString y luego una vez obtenido los valores del archivo INI, con los datos de la Cadena de Conexión, realizas la conexión a la B.D
Archivo INI
***********
DBMS=ODBC
Database=
UserId=
DatabasePassword=
LogPassword=
ServerName=
LogId=
Lock=
DbParm=ConnectString='DSN=sistema;UID=sa;PWD='
Prompt=0
AutoCommit=0
Power
*******
SQLCA.DBMS = ProfileString( as_fileini, as_seccion, "DBMS", "" )
SQLCA.ServerName = ProfileString( as_fileini, as_seccion, "ServerName", "" )
SQLCA.Database = ProfileString( as_fileini, as_seccion, "Database", "" )
SQLCA.LogId = as_login
SQLCA.LogPass = as_clave
SQLCA.DbParm = "Host='" + as_host + "', AppName='" + gstruct_aplicacion.sigla + "'"
SQLCA.AutoCommit = True
If SQLCA.DBMS = "ODBC" Then
SQLCA.DbParm = ProfileString( as_fileini, as_seccion, "DbParm", "" )
End If
CONNECT ;
SetPointer( Arrow! )
Espero que te sirva
Saludos