>>>DECLARE INTEGER SQLConfigDataSource IN ODBCCP32.DLL Integer, Short, String @, String @ >>> >>>LOCAL lcDriver, lcDSN, lnRC >>> >>>#define ODBC_ADD_DSN 1 >>>#define ODBC_CONFIG_DSN 2 >>>#define ODBC_REMOVE_DSN 3 >>>#define ODBC_ADD_SYS_DSN 4 >>>#define ODBC_CONFIG_SYS_DSN 5 >>>#define ODBC_REMOVE_SYS_DSN 6 >>>#define ODBC_REMOVE_DEFAULT_DSN 7 >>> >>>lcDriver = "SQL Server" + CHR(0) >>>lcDSN = "SERVER=EVALUATION\MIDDLETIERGED" + CHR(0) +; >>> "DESCRIPTION=XXXXXXXXXX" + CHR(0) +; >>> "DSN=XXXXXXXXXX" + CHR(0) +; >>> "DATABASE=GDOCINTR" + CHR(0) +; >>> "UID=sa" + CHR(0) +; >>> "PWD=" + CHR(0) >>> >>>lnRC = SQLConfigDataSource(0, ODBC_ADD_DSN, @lcDriver, @lcDSN) >>> >>>= MESSAGEBOX("lnRC = " + STR(lnRC, 2, 0)) >>> >>>RETURN >>>>>>