diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb
index a608c73..03b8762 100644
--- a/app/DD_PM_WINDREAM/frmMain.vb
+++ b/app/DD_PM_WINDREAM/frmMain.vb
@@ -991,13 +991,14 @@ Public Class frmMain
             PROFILE_COUNT = 0
             ClassInit.InitBasics()
             Dim sql = CURRENT_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW")
-            sql = sql.Replace("@USER", Environment.UserName)
-            sql = sql.Replace("@MACHINE_NAME", Environment.MachineName)
-            sql = sql.Replace("@DATE", Now.ToShortDateString)
-            'String.Format("SELECT '1' TL_STATE,T.PROFIL_ID,T1.TITLE, T.DOC_ID, T.FILE_PATH, T.DMS_ERSTELLT_DATE,[dbo].[FNPM_LAST_WORKUSER_DOC] (T.PROFIL_ID,T.DOC_ID) AS 'Last User',[dbo].[FNPM_LAST_EDITED_DOC] (T.PROFIL_ID,T.DOC_ID) as 'Last edited' FROM TBPM_PROFILE_FILES T, VWPM_PROFILE_USER T1 " &
-            '       "WHERE T.PROFIL_ID = T1.PROFIL_ID " &
-            '      "AND T1.ACTIVE = 1  And (UPPER(T1.USERNAME) = UPPER('{0}')) Order By T1.PRIORITY", Environment.UserName)
-            CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(sql, True)
+            If Not IsDBNull(sql) Then
+                MsgBox("SQL for Groups missing!", MsgBoxStyle.Critical, "Achtung:")
+            Else
+                sql = sql.Replace("@USER", Environment.UserName)
+                sql = sql.Replace("@MACHINE_NAME", Environment.MachineName)
+                sql = sql.Replace("@DATE", Now.ToShortDateString)
+                CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(sql, True)
+            End If
 
             If Not IsNothing(CURR_DT_PROFILEGRID) Then
                 If CURR_DT_PROFILEGRID.Rows.Count = 0 Then