diff --git a/DDUserManager/DDUserManager/My Project/AssemblyInfo.vb b/DDUserManager/DDUserManager/My Project/AssemblyInfo.vb
index 7df3545..1e3cacd 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("2.1.0.0")>
+<Assembly: AssemblyVersion("2.1.1.0")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>
diff --git a/DDUserManager/DDUserManager/frmMain.vb b/DDUserManager/DDUserManager/frmMain.vb
index 25d6bf3..fc35e7b 100644
--- a/DDUserManager/DDUserManager/frmMain.vb
+++ b/DDUserManager/DDUserManager/frmMain.vb
@@ -67,8 +67,17 @@ Public Class frmMain
             TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString
             TBDD_USER_MODULESTableAdapter.Connection.ConnectionString = MyConnectionString
 
-            Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_LOGIN_USER_MODULE] ('{0}','UM',1)", Environment.UserName)
-            Dim DT_CHECKUSER_MODULE As DataTable = MyDatabase.GetDatatable(sql)
+            Dim oSql = String.Format("SELECT * FROM [dbo].[FNDD_LOGIN_USER_MODULE] ('{0}','UM',1)", Environment.UserName)
+            Dim DT_CHECKUSER_MODULE As DataTable
+            Try
+                DT_CHECKUSER_MODULE = MyDatabase.GetDatatable(oSql)
+            Catch ex As Exception
+                MyLogger.Warn($"Error Executing: FNDD_LOGIN_USER_MODULE: {ex.Message}")
+                MyLogger.Warn($"SQL so far: [{oSql}]")
+                Application.ExitThread()
+            End Try
+
+
 
             If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
                 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")