From 6ad6c87a8751016ce542d1c373b7d4730645b7e4 Mon Sep 17 00:00:00 2001
From: Digital Data - Marlon Schreiber <m.schreiber@digitaldata.works>
Date: Thu, 16 Mar 2023 12:13:13 +0100
Subject: [PATCH] MS Version

---
 DDUserManager/DDUserManager/My Project/AssemblyInfo.vb | 2 +-
 DDUserManager/DDUserManager/frmMain.vb                 | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/DDUserManager/DDUserManager/My Project/AssemblyInfo.vb b/DDUserManager/DDUserManager/My Project/AssemblyInfo.vb
index 6ab319e..fb353e7 100644
--- a/DDUserManager/DDUserManager/My Project/AssemblyInfo.vb	
+++ b/DDUserManager/DDUserManager/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.2.1.0")>
+<Assembly: AssemblyVersion("2.0.0.0")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>
diff --git a/DDUserManager/DDUserManager/frmMain.vb b/DDUserManager/DDUserManager/frmMain.vb
index 8301bf4..547d994 100644
--- a/DDUserManager/DDUserManager/frmMain.vb
+++ b/DDUserManager/DDUserManager/frmMain.vb
@@ -67,7 +67,7 @@ Public Class frmMain
             TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString
             TBDD_USER_MODULESTableAdapter.Connection.ConnectionString = MyConnectionString
 
-            Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','UM',{1})", Environment.UserName, 1)
+            Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','UM',{1},'')", Environment.UserName, 1)
             Dim DT_CHECKUSER_MODULE As DataTable = MyDatabase.GetDatatable(sql)
 
             If DT_CHECKUSER_MODULE.Rows.Count = 0 Then