ZooFlow: First working version of Clipboard Watcher

GUIs.ZooFlow/ClassDataASorDB.vb

@@ -8,7 +8,7 @@ Public Class ClassDataASorDB
     End Sub
     Public Function GetDatatable(pDB As String, pSQL As String, pAppServDT As String, pAppServFilter As String, Optional pAppServSort As String = "", Optional pForce As String = "") As DataTable
         Try
-            Dim oReturnDT As DataTable
+            Dim oReturnDT As DataTable = Nothing
             If EDMI_SERVICE_ACTIVE = True And pForce = String.Empty Then
                 Try
                     Dim oTableResult As TableResult = _Client.GetDatatableByName(pAppServDT, pAppServFilter, pAppServSort)
@@ -35,7 +35,7 @@ Public Class ClassDataASorDB
         End Try
     End Function
 
-    Public Function CheckModuleData()
+    Public Function CheckModuleData() As Boolean
         Try
             Dim oSql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','CW',{1})", My.Application.User.UserName)
             Dim DT_CHECKUSER_MODULE As DataTable