improve init, clean up code

GUIs.ZooFlow/frmFlowForm.vb

@@ -34,20 +34,16 @@ Public Class frmFlowForm
         Next
 
         Dim oSQL = $"SELECT * FROM [dbo].[FNIDB_GET_SEARCH_PROFILES] ({My.Application.User.UserId},'{My.Application.User.Language}')"
-        Dim oDT As DataTable = My.Database_IDB.GetDatatable(oSQL)
+        Dim oDatatable As DataTable = My.Database_IDB.GetDatatable(oSQL)
         PictureBoxSearch.Visible = False
-        If Not IsNothing(oDT) Then
-            If oDT.Rows.Count > 0 Then
-                IDBSearchActive = True
-                DTIDB_SEARCHES = oDT
-                PictureBoxSearch.Visible = True
-            End If
 
+        If Not IsNothing(oDatatable) OrElse oDatatable.Rows.Count > 0 Then
+            IDBSearchActive = True
+            DTIDB_SEARCHES = oDatatable
+            PictureBoxSearch.Visible = True
         End If
 
         My.DTAttributes = My.Database_IDB.GetDatatable("SELECT * FROM TBIDB_ATTRIBUTE")
-
-
     End Sub
 
     Public Sub SetFormLocation()