//use source para mudar de porta
GLOBAL
Banco is string = INIRead("Database","Banco","",fCurrentDir()+"\ConfigDB.ini")
DNS_IP is string = INIRead("Database","DNS-IP","",fCurrentDir()+"\ConfigDB.ini")
Porta is string = INIRead("Database","Porta","",fCurrentDir()+"\ConfigDB.ini")
Usuario is string = INIRead("Database","Usuario","",fCurrentDir()+"\ConfigDB.ini")
Senha is string = INIRead("Database","Senha","",fCurrentDir()+"\ConfigDB.ini")

IF Usuario = "" AND Senha = "" THEN
Open(WIN_ConfigDatabase)
END

MyHfsql01 is Connection
MyHfsql01..Provider = hAccessHFClientServer
MyHfsql01..Database = Banco
MyHfsql01..Server = DNS_IP
MyHfsql01..Source = DNS_IP +":"+ Porta //em source define a porta
MyHfsql01..User = Usuario
MyHfsql01..Password = Senha


HModifyStructure("*")

HCreationIfNotFound("*")

IF HOpenConnection(MyHfsql01) = True THEN

IF HChangeConnection("*",MyHfsql01) = True THEN
ToastDisplay("Conexao com sucesso!",toastLong,vaMiddle,haCenter)
ELSE
Error(HErrorInfo())
END

ELSE
Error(HErrorInfo())
END