add property MaskedConnectionString

Database/Adapters/MSSQLServer.vb

@@ -8,6 +8,15 @@ Public Class MSSQLServer
 
     Public Property DBInitialized As Boolean = False Implements IDatabase.DBInitialized
     Public Property CurrentConnectionString As String = "" Implements IDatabase.CurrentConnectionString
+    Public ReadOnly Property MaskedConnectionString As String
+        Get
+            If CurrentConnectionString = "" Then
+                Return ""
+            Else
+                Return MaskConnectionString(CurrentConnectionString)
+            End If
+        End Get
+    End Property
 
     Private ReadOnly QueryTimeout As Integer
     Private ReadOnly Logger As Logger