diff --git a/GUIs.ZooFlow/Administration/ClassDetailForm.vb b/GUIs.ZooFlow/Administration/ClassDetailForm.vb
index 67bef96e..c3eef86a 100644
--- a/GUIs.ZooFlow/Administration/ClassDetailForm.vb
+++ b/GUIs.ZooFlow/Administration/ClassDetailForm.vb
@@ -48,13 +48,11 @@ Public Class ClassDetailForm
         }},
         {PAGE_IDB_ATTRIBUTE_REL, New DetailSettings With {
             .GridTitle = "Attribute-Relations",
-            .NewRecordTitle = "",
             .[Module] = MODULE_IDB,
             .Entity = PAGE_IDB_ATTRIBUTES
         }},
         {PAGE_GI_RELATIONS, New DetailSettings With {
             .GridTitle = "Globix profile-relations",
-            .NewRecordTitle = "",
             .[Module] = MODULE_GI,
             .Entity = PAGE_GI_RELATIONS
         }},
@@ -66,13 +64,11 @@ Public Class ClassDetailForm
         }},
         {PAGE_IDB_DOCTYPE, New DetailSettings With {
             .GridTitle = "Doctype Configuration",
-            .NewRecordTitle = "New Doctype",
             .[Module] = MODULE_IDB,
             .Entity = PAGE_IDB_DOCTYPE
         }},
           {PAGE_IDB_DOCTYPE_BE, New DetailSettings With {
             .GridTitle = "Doctype BE Relations",
-            .NewRecordTitle = "New Relation",
             .[Module] = MODULE_IDB,
             .Entity = PAGE_IDB_DOCTYPE_BE
         }},
@@ -283,7 +279,11 @@ Public Class ClassDetailForm
         Public Property GridTitle As String
         Public Property [Module] As String
         Public Property Entity As String
-        Public Property NewRecordTitle As String
+
+        ''' <summary>
+        ''' If this is empty, the button "New Record will be hidden"
+        ''' </summary>
+        Public Property NewRecordTitle As String = ""
     End Class
 
     Public Class DetailData
diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb
index b61bfaea..4124dc8c 100644
--- a/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb
+++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb
@@ -439,7 +439,6 @@ Partial Class frmAdmin_Start
         Me.TreeListMenu.AppendNode(New Object() {"User Management"}, -1, 11, 11, -1)
         Me.TreeListMenu.AppendNode(New Object() {"User List"}, 16, 5, 5, -1, "USERS_USERLIST")
         Me.TreeListMenu.AppendNode(New Object() {"Group List"}, 16, 12, 12, -1, "USERS_GROUPLIST")
-        Me.TreeListMenu.AppendNode(New Object() {"Module List"}, 16, 13, 13, -1, "USERS_MODULELIST")
         Me.TreeListMenu.EndUnboundLoad()
         Me.TreeListMenu.OptionsBehavior.Editable = False
         Me.TreeListMenu.OptionsView.ShowColumns = False
diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Start.resx b/GUIs.ZooFlow/Administration/frmAdmin_Start.resx
index c847b024..b3dc977c 100644
--- a/GUIs.ZooFlow/Administration/frmAdmin_Start.resx
+++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.resx
@@ -288,9 +288,6 @@
   <metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>531, 17</value>
   </metadata>
-  <metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>531, 17</value>
-  </metadata>
   <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>1043, 17</value>
   </metadata>
diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Start.vb b/GUIs.ZooFlow/Administration/frmAdmin_Start.vb
index 0b33700a..8066e65d 100644
--- a/GUIs.ZooFlow/Administration/frmAdmin_Start.vb
+++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.vb
@@ -7,6 +7,7 @@ Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Language.Utils
 Imports DigitalData.GUIs.ZooFlow.Administration.ClassConstants
 Imports DevExpress.XtraGrid
+Imports DevExpress.XtraBars
 
 Public Class frmAdmin_Start
     Private CurrentModule As String
@@ -94,14 +95,6 @@ Public Class frmAdmin_Start
             If Handle_LoadPage(e.Node.Tag.ToString) Then
                 RibbonPageGroup1.Enabled = True
                 CurrentPage = e.Node.Tag.ToString
-                btnAddRecord.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
-                Select Case CurrentPage
-                    Case PAGE_IDB_DOCTYPE
-                        btnAddRecord.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
-                    Case PAGE_IDB_DOCTYPE_BE
-                        btnAddRecord.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
-
-                End Select
             End If
 
         Catch ex As Exception