top most for frmMatch, fix export for dataresultlist

GUIs.ClipboardWatcher/ProfileSearches.vb

@@ -48,6 +48,12 @@ Public Class ProfileSearches
             oSQL = oPatterns.ReplaceClipboardContents(oSQL, _Params.ClipboardContents)
 
             Dim oDatatable As DataTable = _Environment.Database.GetDatatable(oSQL, oConnectionId)
+
+            If oDatatable Is Nothing Then
+                _Logger.Warn("Error in SQL-Query '{0}'", oSQL)
+                Continue For
+            End If
+
             oDocSearches.Add(New Search() With {
                 .Guid = oGuid,
                 .DataTable = oDatatable,
@@ -90,6 +96,12 @@ Public Class ProfileSearches
                     oSQL = oPatterns.ReplaceInternalValues(oSQL)
 
                     Dim oDatatable As DataTable = _Environment.Database.GetDatatable(oSQL, oConnectionId)
+
+                    If oDatatable Is Nothing Then
+                        _Logger.Warn("Error in SQL-Query '{0}'", oSQL)
+                        Continue For
+                    End If
+
                     oDataSearches.Add(New Search() With {
                         .DataTable = oDatatable,
                         .ProfileId = oProfileId,

GUIs.ClipboardWatcher/frmMatch.vb

@@ -95,6 +95,10 @@ Public Class frmMatch
         End If
     End Sub
 
+    Private Sub frmMatch_Activated(sender As Object, e As EventArgs) Handles Me.Activated
+        TopMost = True
+    End Sub
+
     Function CreateTiles() As Integer
         Try
             Dim oCreatedTiles As Integer = 0