DataStore Sometimes Not Saving?

The Datastore I made Was For a Game I am Working On But Sometimes Its Not Saving The Data. I Tried Everything But I Could Find A Way So Thats Why I Am Asking Here. There Is Also A Properties Folder Containing XPPerLevel , AdditionalXPNeeded , LevelCap , XPExponentMagnitude , XPPerLevel.

local Properties = game.ReplicatedStorage.LevelUpProperties

function onXPChanged(player, XP, level) 
	if string.lower(Properties.XPType.Value) == "linear" then
		if XP.Value>= Properties.XPPerLevel.Value * (level.Value) + Properties.AdditionalXPNeeded.Value and level.Value < Properties.LevelCap.Value then 
			XP.Value = XP.Value - (Properties.XPPerLevel.Value*(level.Value) + Properties.AdditionalXPNeeded.Value) 
			level.Value = level.Value + 1 
		end 		
	end
end 

function SaveData(Player)
	if Player.DataReady == false then
		print("Could not save, DataReady is false.")
		return
	end
	--Stats
	local Stats = Player.LevelingSystem:GetChildren()
	print("Saving Data For "..Player.Name)
	local datastore = game:GetService("DataStoreService"):GetDataStore(Player.Name.."Stats")

	local statstorage = Player:FindFirstChild("LevelingSystem"):GetChildren()
	for i , v in pairs(statstorage) do
		datastore:SetAsync(statstorage[i].Name, statstorage[i].Value)
		print("saved data number "..i)
	end
	print("Data has been saved successfully for " .. Player.Name .. "!")
end

function LoadData(Player)
	if Player.DataReady == false then
		warn("Could not load, DataReady is false.")
		return
	end
	--Stats
	local Stats = Player.LevelingSystem:GetChildren()
	local datastore = game:GetService("DataStoreService"):GetDataStore(Player.Name.."Stats")

	Player:WaitForChild("LevelingSystem")
	wait(1)
	local stats = Player:FindFirstChild("LevelingSystem"):GetChildren()
	for i , v in pairs(stats) do			
		stats[i].Value = datastore:GetAsync(stats[i].Name)
		print("stat number "..i.." has been found")
	end
end

function onPlayerEntered(newPlayer)

		local stats = Instance.new("Folder")
		stats.Name = "LevelingSystem"
		
		local misc = Instance.new("Folder")
		misc.Name = "Stats"

		--Leaderstats variables
	local clicks = Instance.new("NumberValue", stats)
		clicks.Name = "Lvl"
		clicks.Value = 1

	local clicks2 = Instance.new("NumberValue", stats)
		clicks2.Name = "XP"
	    clicks2.Value = 0
	
	local clicks3= Instance.new("NumberValue", stats)
	    clicks3.Name = "Money" -- Change "Money" with your currency.
	    clicks3.Value = 0		    
	
	   local clicks4 = Instance.new("BoolValue", stats)
	   clicks4.Name = "EggHunter"
	   clicks4.Value = false
	
	local clicks5 = Instance.new("BoolValue", stats)
	clicks5.Name = "PreAlpha"
	clicks5.Value = false
	
	local clicks6 = Instance.new("StringValue", stats)
	clicks6.Name = "Rank"
	clicks6.Value = ""
	
	local clicks7 = Instance.new("NumberValue", stats)
	clicks7.Name = "Missions"
	clicks7.Value = 1
	
	local clicks8 = Instance.new("NumberValue", stats)
	clicks8.Name = "Time"
	clicks8.Value = 1
	
	local clicks9 = Instance.new("BoolValue", stats)
	clicks9.Name = "Banned"
	clicks9.Value = false
	
		--Assign the folders to player.
	stats.Parent = newPlayer
	misc.Parent = newPlayer
	
	    clicks9.Changed:connect(function(newPlayer, clicks9) end)
	    clicks8.Changed:connect(function(newPlayer, clicks8) end)
	    clicks7.Changed:connect(function(newPlayer, clicks7) end)
	    clicks6.Changed:connect(function(newPlayer, clicks6) end)
	    clicks5.Changed:connect(function(newPlayer, clicks5) end)
	    clicks4.Changed:connect(function(newPlayer, clicks4) end)
	    clicks3.Changed:connect(function(newPlayer, clicks3) end) 
	    clicks2.Changed:connect(function() onXPChanged(newPlayer, clicks2, clicks) end) 
	    clicks.Changed:connect(function(newPlayer, clicks2, clicks) end)
	
            newPlayer:WaitForDataReady()
	    LoadData(newPlayer)

end

function onPlayerRemoving(player)
	print("Attempting to save score for " .. player.Name)
	SaveData(player)
end

game.Players.PlayerRemoving:Connect(onPlayerRemoving)
game.Players.PlayerAdded:Connect(onPlayerEntered)