This data saving script doesn't save data when the player leaves the game, any ideas?

Here's the script:

local DataBaseStore = game:GetService("DataStoreService"):GetDataStore("AllTheStatsAreHere")
local Statsholder = script.Stats


game.Players.PlayerAdded:Connect(function(NewPlayer)
	
	local key = "Player-ID:" .. NewPlayer.UserId
	local GetSave = DataBaseStore:GetAsync(key)
	
	local DataBaseFolder = Instance.new("Folder", NewPlayer)
	DataBaseFolder.Name = "PlayerStats"
	
	for i, Stats in pairs(Statsholder:GetChildren()) do
		local NewStats = Instance.new(Stats.ClassName)
		NewStats.Name = Stats.Name
		NewStats.Value = Stats.Value
		NewStats.Parent = DataBaseFolder
	end
	
	if GetSave then
		
		for i, Stats in pairs(script.Stats:GetChildren()) do
			
			DataBaseFolder[Stats.Name].Value = GetSave[i]
			print(i, Stats.Name, Stats.Value)
			
			end
			
	else 
		
		local StatsToSave = {}
			
			for i, Stats in pairs(DataBaseFolder:GetChildren()) do
				
				table.insert(StatsToSave, Stats.Value)
				print(i, Stats.Name, Stats.Value)
				
			end
			
			DataBaseStore:SetAsync(key, StatsToSave)
			
	
		end
		
		while wait(15) do  
			
			local StatsToSave = {}
			
			for i, Stats in pairs(DataBaseFolder:GetChildren()) do
				
				table.insert(StatsToSave, Stats.Value)
				print(i, Stats.Name, Stats.Value)
				
			end
			
			DataBaseStore:SetAsync(key, StatsToSave)
			
		end
		
		game.Players.PlayerRemoving:Connect(function(OldPlayer)
			
			
			local key = "Player-ID:" .. OldPlayer.UserId
			
			local StatsToSave = {}
			
			for i, Stats in pairs(DataBaseFolder:GetChildren()) do
				
				table.insert(StatsToSave, Stats.Value)
				print(i, Stats.Name, Stats.Value)
				
			end
			
			DataBaseStore:SetAsync(key, StatsToSave)
			
		end)
		
		
end)

It should technically save the data when the player is leaving the game yet it doesn't, i cannot figure out why, hope someone can help, thanks in advance.