Database: Expose GetConnection function

Modules.Database/MSSQLServer.vb

@@ -63,6 +63,18 @@ Public Class MSSQLServer
         Return oConnectionStringBuilder.ToString
     End Function
 
+    Public Function GetConnection() As SqlConnection
+        Try
+            Dim oConnection = GetSQLConnection()
+            oConnection.Open()
+
+            Return oConnection
+        Catch ex As Exception
+            _Logger.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+
     Private Function MaybeGetTransaction(Connection As SqlConnection, Mode As TransactionMode, Transaction As SqlTransaction) As SqlTransaction
         If Mode = TransactionMode.NoTransaction Then
             Return Nothing