jj: show results over search start

Modules.Database/MSSQLServer.vb

@@ -213,6 +213,12 @@ Public Class MSSQLServer
         Return ExecuteNonQuery(SQLCommand, _Timeout)
     End Function
 
+    Public Async Function ExecuteNonQueryAsync(SQLCommand As String) As Task(Of Boolean)
+        Return Await Task.Run(Function()
+                                  Return ExecuteNonQuery(SQLCommand, _Timeout)
+                              End Function)
+    End Function
+
     Public Function GetScalarValue(SQLCommand As String, Timeout As Integer) As Object Implements IDatabase.GetScalarValue
         Try
             If TestCanConnect() = False Then