Your code looks a lot better than mine. 
code:
$HKLMS = 'HKEY_LOCAL_MACHINE\SOFTWARE'; This adds in the Datatrac ODBC Connection for the Control Panel
ATATRAC
;Check for the existence of the ODBC Data Sources For the Control Panel
If 0 <> EXISTKEY($HKLMS+"\ODBC\ODBC.INI\ODBC Data Sources")
$ = ADDKEY($HKLMS+"\ODBC\ODBC.INI\ODBC Data Sources")
ENDIF
If 0 = ExistKey($HKLMS+"\ODBC\ODBC.INI\DataTrac")
;IF THEY HAVE THE ODBC CONNECTION
RETURN
ELSE
;ADD A DATASOURCE FOR THE CONTROL PANEL
$ = WRITEVALUE($HKLMS+"\ODBC\ODBC.INI\ODBC Data Sources","DataTrac","Microsoft Visual FoxPro Driver","REG_SZ")
;SET THE REGISTRY PATH STRING
$ODBCPATH = $HKLMS+"\ODBC\ODBC.INI\DataTrac"
;ASSUME THE STRING DOESN'T EXIST
$ = ADDKEY($ODBCPATH)
;NOW, WRITE SOME VALUES FOR THIS ODBC CONNECTION
$ = WRITEVALUE($ODBCPATH,"Driver","%windir%\SYSTEM32\VFPODBC.dll","REG_SZ")
$ = WRITEVALUE($ODBCPATH,"SourceDB","R:\Datatrac\Tables\datatrac.DBC","REG_SZ")
$ = WRITEVALUE($ODBCPATH,"Description","","REG_SZ")
$ = WRITEVALUE($ODBCPATH,"SourceType","DBC","REG_SZ")
$ = WRITEVALUE($ODBCPATH,"BackgroundFetch","No","REG_SZ")
$ = WRITEVALUE($ODBCPATH,"Exclusive","No","REG_SZ")
$ = WRITEVALUE($ODBCPATH,"Null","Yes","REG_SZ")
$ = WRITEVALUE($ODBCPATH,"Deleted","Yes","REG_SZ")
$ = WRITEVALUE($ODBCPATH,"Collate","Machine","REG_SZ")
$ = WRITEVALUE($ODBCPATH,"SetNoCountOn","No","REG_SZ")
RETURN
ENDIF
