MS

GUIs.ZooFlow/Administration/frmAdmin_Start.vb

@@ -45,7 +45,8 @@ Public Class frmAdmin_Start
 
                 Load_GridData(oDetailData)
             Else
-                MsgBox($"Could not load data for Page [{oKey}] because it does not exist!", MsgBoxStyle.Critical, Text)
+                Dim oMsgBox As New Dialog1($"Could not load data for Page [{oKey}] because it does not exist!", "Error", True)
+                oMsgBox.ShowDialog()
             End If
         End If
     End Sub
@@ -64,6 +65,7 @@ Public Class frmAdmin_Start
         Else
             MsgBox($"Tag [{Page}] not found! Exiting." & vbNewLine &
                    $"Check the [ENTITY_TITLE] Column in Table [TBZF_ADMIN_SOURCE_SQL]. It must match with the Tag [{Page}] of the corresponding Tree List nodes!", MsgBoxStyle.Critical, Text)
+
             Return False
         End If