Well your code won't work as there is a missing comma in it.

Here is an example of writing the code to use.

Dim $Key,$Set,$WinDir
$Key = 'HKLM\SOFTWARE\ODBC\ODBC.INI'
$WinDir = ReadValue('HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion','SystemRoot')
$Set=WriteValue ($Key+'\ODBC Data Sources','SmartClinic','SQL Server',Reg_SZ)
$Set=WriteValue ($Key+'\SmartClinic','Driver',$WinDir+'\system32\SQLSRV32.dll',REG_SZ)
$Set=WriteValue ($Key+'\SmartClinic','Description','SmartClinic',REG_SZ)
$Set=WriteValue ($Key+'\SmartClinic','Server','MEDICALSERVER',REG_SZ)
$Set=WriteValue ($Key+'\SmartClinic','LastUser','sa',REG_SZ)