Public Function TSB_UNSAccountB_Enable(ByVal AccountName As String, ByVal Ident_UNSRoot As String) As Boolean

	Dim f As ISqlFormatter = Connection.SqlFormatter
	
	Dim UNSAccountB As IEntity = Nothing
	Dim UID_UNSRootB As String = Connection.GetSingleProperty("UNSRootB", "UID_UNSRootB", f.Comparison("Ident_UNSRoot", Ident_UNSRoot, ValType.String, CompareOperator.Equal))

	If Session.Source.TryGet( Query.From("UNSAccountB") _
							       .Where(f.Comparison("AccountName", AccountName, ValType.String, CompareOperator.Equal, FormatterOptions.NonUnicodeLiterals)) _
							       .Where(f.Comparison("UID_UNSRootB", UID_UNSRootB, ValType.String, CompareOperator.Equal, FormatterOptions.NonUnicodeLiterals)) _
							       .SelectNonLobs, UNSAccountB ) Then
		
		UNSAccountB.PutValue("AccountDisabled", False)
		
		Using uow As IUnitOfWork = Session.StartUnitOfWork()
	        uow.Put(UNSAccountB)
	        uow.Commit()
	    End Using
		
		Return True
	End If
		
	Return False
		
End Function