MS FlowSearch

GUIs.ZooFlow/frmFlowForm.vb

@@ -400,14 +400,15 @@ Public Class frmFlowForm
             Cursor = Cursors.Default
             Exit Sub
         End If
-        Dim oSQL As String = ""
+        Dim oSQLFlowSearch As String = ""
         For Each oRow As DataRow In My.DTCOMMON_SQL.Rows
-            If oRow.Item("TITLE") = SQLCMD_FLOW_SEARCH1 Then
-                oSQL = oRow.Item("SQL_COMMAND")
+            If oRow.Item("TITLE") = SQLCMD_FLOW_SEARCH_LOWER_LIMIT Then
+                oSQLFlowSearch = oRow.Item("SQL_COMMAND")
             End If
         Next
-        If oSQL <> String.Empty Then
-            Dim oForm As New frmFlowSearch(oSQL)
+        If oSQLFlowSearch <> String.Empty Then
+            oSQLFlowSearch = oSQLFlowSearch.Replace("@USER_ID", My.Application.User.UserId)
+            Dim oForm As New frmFlowSearch(oSQLFlowSearch)
             oForm.Show()
             oForm.BringToFront()
         End If