fix settings loading

DDUserManager/DDUserManager/ModuleRuntime.vb

@@ -9,12 +9,12 @@ Module ModuleRuntime
 
     Public Function SaveMySettingsValue(name As String, value As String, type As String)
         Try
-            Dim DT As DataTable
+            Dim DT As DataTable = Nothing
             If type = "ConfigMain" Then
                 DT = GetTablefromXML(ConfigPath)
             End If
 
-            If Not DT Is Nothing Then
+            If Not IsNothing(DT) Then
                 For Each Row As DataRow In DT.Rows
                     If Row.Item("ConfigName") = name Then
                         Row.Item("Value") = value
@@ -34,7 +34,7 @@ Module ModuleRuntime
 
     End Function
 
-    Private Function GetTablefromXML(path As String)
+    Private Function GetTablefromXML(path As String) As DataTable
         Try
             Dim DS As New DataSet
             DS.ReadXml(path)

DDUserManager/SetupWix/Product.wxs

@@ -80,7 +80,7 @@
     <DirectoryRef Id="INSTALLDIR">
       <Component Id="MainApplicationExe" Guid="6a98ced0-c55c-4584-9de1-1f1ef87f6de9">
         <File Id="MainApplicationExe" Name="$(var.ProgramName).exe" KeyPath="yes" Checksum="yes" />
-        <File Id="MainApplicationConfig" Name="$(var.ProgramName).exe.config" KeyPath="yes" Checksum="yes" />
+        <File Id="MainApplicationConfig" Name="$(var.ProgramName).exe.config" KeyPath="no" Checksum="yes" />
       </Component>
 
       <Component Id="RegistryKeys" Guid="9630254f-88a9-4e51-9844-e11749882635">