How to make a DataStore leaderboard? [Solved]

Hi, I made a DataStore leaderboard but it doesnt save. And the leaderstats after extralevel doesn't work. Anybody know what is wrong?

local DataRank = game:GetService("DataStoreService"):GetDataStore("RankStore")
local DataXP = game:GetService("DataStoreService"):GetDataStore("XPStore")
local DataJa = game:GetService("DataStoreService"):GetDataStore("JaStore")
local DataNee = game:GetService("DataStoreService"):GetDataStore("NeeStore")
local DataGeld = game:GetService("DataStoreService"):GetDataStore("GeldStore")
local DataMunt = game:GetService("DataStoreService"):GetDataStore("MuntStore")
local DataTrofee = game:GetService("DataStoreService"):GetDataStore("TrofeeStore")
local DataGe = game:GetService("DataStoreService"):GetDataStore("GeStore")
local maxlevel = 250
game.Players.PlayerAdded:connect(function(player)
local stats = Instance.new("IntValue", player) 
		stats.Name = "leaderstats"
		local level = Instance.new("IntValue", stats) 
		level.Name = "Level" 
		level.Value = 1
		local expp = Instance.new("IntValue", stats) 
		expp.Name = "XOP"
		expp.Value = 0 while wait() 
		do local extralevel = level.Value 
			local expneed = ((extralevel * 2) - 1) * 50 
			if level.Value < maxlevel then 
				if expp.Value >= expneed then level.Value = level.Value + 1 
					expp.Value = expp.Value - expneed 
				end 
			end 
		end
		local win = Instance.new('IntValue', stats)
		win.Name = "QW" -- Wins (Dd)
		win.Value = 0
		local lose = Instance.new('IntValue', stats)
		lose.Name = "LP" -- Loses (De)
		lose.Value = 0
		local money = Instance.new('IntValue', stats)
		money.Name = "DHJK" -- Money (Df)
		money.Value = 0
		local coin = Instance.new('IntValue', stats)
		coin.Name = "IPE" -- Coins (Dg)
		coin.Value = 0
		local trofee = Instance.new('IntValue', stats)
		trofee.Name = "TR" -- Trofee (Dh)
		trofee.Value = 0
		local ge = Instance.new('IntValue', stats)
		ge.Name = "KLOPT" -- Gems (Di)
		ge.Value = 0
end)

game.Players.PlayerAdded:connect(function(player)
		local Db = DataRank:GetAsync(tostring(player.userId)..":DB")
		local Dc = DataXP:GetAsync(tostring(player.userId)..":DC")
		local Dd = DataJa:GetAsync(tostring(player.userId)..":DD")
		local De = DataNee:GetAsync(tostring(player.userId)..":DE")
		local Df = DataGeld:GetAsync(tostring(player.userId)..":DF")
		local Dg = DataMunt:GetAsync(tostring(player.userId)..":DG")
		local Dh = DataTrofee:GetAsync(tostring(player.userId)..":DH")
		local Di = DataGe:GetAsync(tostring(player.userId)..":DI")
		
		if Db then level.Value = Db end
		if Dc then expp.Value = Dc end
		if Dd then win.Value = Dd end
		if De then lose.Value = De end
		if Df then money.Value = Df end
		if Dg then coin.Value = Dg end
		if Dh then trofee.Value = Dh end
		if Di then ge.Value = Di end

	end)
	
game.Players.PlayerRemoving:connect(function(player)
	local Stats = player:FindFirstChild("leaderstats")
	if Stats then

		local DBB = Stats:FindFirstChild("Level")
		local DCC = Stats:FindFirstChild("XOP")
		local DDD = Stats:FindFirstChild("QW")
		local DEE = Stats:FindFirstChild("LP")
		local DFF = Stats:FindFirstChild("DHJK")
		local DGG = Stats:FindFirstChild("IPE")
		local DHH = Stats:FindFirstChild("TR")
		local DII = Stats:FindFirstChild("KLOPT")

		if DBB then DataRank:SetAsync(tostring(player.userId)..":DB", level.Value) end
		if DCC then DataXP:SetAsync(tostring(player.userId)..":DC", expp.Value) end
		if DDD then DataJa:SetAsync(tostring(player.userId)..":DD", win.Value) end
		if DEE then DataNee:SetAsync(tostring(player.userId)..":DE", lose.Value) end
		if DFF then DataGeld:SetAsync(tostring(player.userId)..":DF", money.Value) end
		if DGG then DataMunt:SetAsync(tostring(player.userId)..":DG", coin.Value) end
		if DHH then DataTrofee:SetAsync(tostring(player.userId)..":DH", trofee.Value) end
		if DII then DataGe:SetAsync(tostring(player.userId)..":DI", ge.Value) end
	end
end)