Progress - Error programacion odbc vs postgresql

/*tengo un problema de conexión con estas instrucciones */
DEF VAR ObjConnection AS COM-HANDLE NO-UNDO.
CREATE "ADODB.Connection" ObjConnection.
/*cadena de caracteres string para conectar una base de datos pstgresql
este es un ejemplo los datos reales están abajo
pg_connect("host=sheep port=5432 dbname=mary user=lamb password=foo")
y se comprobo por medio del tst de ODBC que esta conectada*/
ObjConnection:pg_connect("host=127.0.0.1 port=5432 dbname=scclog user=postgres password=4545781")
NO-ERROR.
IF (ERROR-STATUS:NUM-MESSAGES > 0 ) THEN DO:
message 'Error: No se pudo establecer la conexión '
VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.
ELSE DO:
message 'Se pudo establecer la conexión'
VIEW-AS ALERT-BOX INFO BUTTONS OK.
end.
/*alguien me puede ayudar para saber donde tengo el error*/