prepare release and fix marvman's bugs

app/DD_Clipboard_Searcher/ClassLicense.vb

@@ -4,7 +4,7 @@ Public Class ClassLicense
     Private Shared Sub Get_License(CLIENT_ID As Integer)
         Dim sql As String = String.Format("SELECT LICENSE_DDCBSEARCHER FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID)
 
-        lic_string = Database.NewExecuteScalar(sql)
+        lic_string = Database.GetScalarValue(sql)
     End Sub
     Public Shared Sub Refresh_Licence(CLIENT_ID As Integer)
         Try