From 3af66db602903fc5ab51606d143529c02d422284 Mon Sep 17 00:00:00 2001
From: Digital Data - Marlon Schreiber <m.schreiber@digitaldata.works>
Date: Wed, 9 Feb 2022 13:35:10 +0100
Subject: [PATCH] MS

---
 GUIs.ZooFlow/frmFlowForm.vb | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/GUIs.ZooFlow/frmFlowForm.vb b/GUIs.ZooFlow/frmFlowForm.vb
index 03dcb591..d81c4805 100644
--- a/GUIs.ZooFlow/frmFlowForm.vb
+++ b/GUIs.ZooFlow/frmFlowForm.vb
@@ -105,14 +105,18 @@ Public Class frmFlowForm
         AddHandler KeyUp, AddressOf frmFlowForm_KeyDown
 
         AddHandler Watcher.ClipboardChanged, AddressOf Watcher_ClipboardChanged
+        PictureBoxSearch1.Visible = False
 
         Dim oSQL = My.Queries.Common.FNIDB_GET_SEARCH_PROFILES(My.Application.User.UserId, My.Application.User.Language)
         Dim oDatatable As DataTable = My.Database.GetDatatableIDB(oSQL)
-        PictureBoxSearch1.Visible = False
-        If Not IsNothing(oDatatable) OrElse oDatatable.Rows.Count > 0 Then
-            IDBSearchActive = True
-            DTIDB_SEARCHES = oDatatable
-            PictureBoxSearch1.Visible = True
+
+        If Not IsNothing(oDatatable) Then
+            If oDatatable.Rows.Count > 0 Then
+                IDBSearchActive = True
+                DTIDB_SEARCHES = oDatatable
+                PictureBoxSearch1.Visible = True
+            End If
+
         End If
 
         If My.Application.ModulesActive.Contains(MODULE_CLIPBOARDWATCHER) Then