Async Loading of Profile Documents and Monitor Data

app/DD_PM_WINDREAM/ClassDatabase.vb

@@ -1,5 +1,7 @@
 Imports System.Data.SqlClient
 Imports Oracle.ManagedDataAccess.Client
+Imports System.Threading.Tasks
+
 Public Class ClassDatabase
     Private Shared SQLSERVERConnectionString As String
     Private Shared OracleConnectionString As String
@@ -57,7 +59,7 @@ Public Class ClassDatabase
         End Try
     End Function
 
-    Public Shared Function Return_Datatable(pSQLCommand As String, Optional pInfo As String = "")
+    Public Shared Function Return_Datatable(pSQLCommand As String, Optional pInfo As String = "") As DataTable
         Try
             If pInfo <> "" Then
                 pInfo = "[" & pInfo & "]"
@@ -80,6 +82,13 @@ Public Class ClassDatabase
             Return Nothing
         End Try
     End Function
+
+    Public Shared Async Function Return_DatatableAsync(pSQLCommand As String, Optional pInfo As String = "") As Task(Of DataTable)
+        Return Await Task.Run(Function()
+                                  Return Return_Datatable(pSQLCommand, pInfo)
+                              End Function)
+    End Function
+
     Public Shared Function Return_Datatable_ConId(pSQLCommand As String, ConnID As Integer, Optional pInfo As String = "")
         Try
             If pInfo <> "" Then