diff --git a/DDUserManager/DDUserManager/ModuleRuntime.vb b/DDUserManager/DDUserManager/ModuleRuntime.vb
index 9a52d31..7204f96 100644
--- a/DDUserManager/DDUserManager/ModuleRuntime.vb
+++ b/DDUserManager/DDUserManager/ModuleRuntime.vb
@@ -7,6 +7,8 @@ Module ModuleRuntime
     Public ConfigPath As String = Path.Combine(Application.UserAppDataPath, "UserConfig.xml")
     Public rowresult
 
+    Public USER_ID As Integer
+
     Public Function SaveMySettingsValue(name As String, value As String, type As String)
         Try
             Dim DT As DataTable
diff --git a/DDUserManager/DDUserManager/frmMain.vb b/DDUserManager/DDUserManager/frmMain.vb
index cb6e0f2..0d8accb 100644
--- a/DDUserManager/DDUserManager/frmMain.vb
+++ b/DDUserManager/DDUserManager/frmMain.vb
@@ -35,9 +35,14 @@ Public Class frmMain
         TBDD_USER_MODULESTableAdapter.Connection.ConnectionString = MyConnectionString
 
 
-        If TBDD_USERTableAdapter.IsUserManagerAdmin(Environment.UserName) = 1 Then
+        Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','UM',{1})", Environment.UserName, 1)
+        Dim DT_CHECKUSER_MODULE As DataTable = clsDatabase.Return_Datatable(sql)
+
+        If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
+            USER_ID = DT_CHECKUSER_MODULE.Rows(0).Item("USER_ID")
+
             Dim userRow As TBDD_USERRow = GetCurrentUserRow(Environment.UserName)
-            tsLabelUser.Text = $"Angemeldeter Benutzer: {userRow.USERNAME}"
+            tsLabelUser.Text = $"Angemeldeter Benutzer: {Environment.UserName}"
             CurrentUser = userRow
 
             ' Grunddaten aus Tabellen laden
@@ -61,6 +66,13 @@ Public Class frmMain
             DragDropManager.AddGridView(viewClientsGroups_AvailableGroups)
             DragDropManager.AddGridView(viewModulesGroups_AssignedGroups)
             DragDropManager.AddGridView(viewModulesGroups_AvailableGroups)
+        Else
+            MsgBox($"Der Benutzer '{Environment.UserName}' ist nicht zur Benutzerverwaltung berechtigt. {vbCrLf & vbCrLf}Bitte kontaktieren Sie den Administrator, wenn dies ein Fehler ist.", MsgBoxStyle.Critical, "UserManager")
+            Application.Exit()
+        End If
+
+        If TBDD_USERTableAdapter.IsUserManagerAdmin(Environment.UserName) = 1 Then
+
 
         Else
             MsgBox($"Der Benutzer '{Environment.UserName}' ist nicht zur Benutzerverwaltung berechtigt. {vbCrLf & vbCrLf}Bitte kontaktieren Sie den Administrator, wenn dies ein Fehler ist.", MsgBoxStyle.Critical, "UserManager")