Improve Logging, Add UpdateUsers for MSSQL

Modules.Interfaces/ActiveDirectoryInterface/SyncUsers.Firebird.vb

@@ -79,19 +79,22 @@ Namespace SyncUsers
             Return oSyncedUsers
         End Function
 
-        Private Sub AddUserToGroup(UserId As Integer, GroupId As Integer) Implements ISyncUsers.AddUserToGroup
+        Private Function AddUserToGroup(UserId As Integer, GroupId As Integer) As Boolean Implements ISyncUsers.AddUserToGroup
             Try
                 Dim oSQL = $"SELECT FNICM_RADM_NEW_USER2GROUP({UserId}, {GroupId}, 'AD-Sync') from RDB$DATABASE"
                 Dim oRecordId = _firebird.GetScalarValue(oSQL)
 
                 If IsDBNull(oRecordId) Then
                     _logger.Warn("UserId {0} - GroupId {1} relation already exists.", UserId, GroupId)
+                    Return False
                 End If
+
+                Return True
             Catch ex As Exception
                 _logger.Error(ex)
                 Throw ex
             End Try
-        End Sub
+        End Function
         Private Function GetGroupId(GroupName As String) As Integer Implements ISyncUsers.GetGroupId
             Try
                 Dim oSQL As String = $"SELECT FNICM_GET_RECORD4SYSKEY('{GroupName}','002-NAME') from RDB$DATABASE"