#INCLUDE ODBC.H
lcDriverName = ODBC_MS_ORACLE
lcSettings   = "DSN=Connect1_or_better_description" + chr(0);
             + "Description=Your_Description_Here" + chr(0);
             + "Server=host_name_in_tnsnames.ora_file"+chr(0);
             + "UID=myuserid"
llModifyDSN  = .f.  && optional. default is false
oODBC = newobject('odbc', 'odbc.fxp')
llSuccess = oODBC.CreateUserDSN(lcDriverName, lcSettings, <b>llModifyDSN</b>)
oODBC.Release
return llSuccess