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,