DataStore Is Not Saving Properly?

Hello,

Problem: My DataStore is not saving the Leaderstats or the Tools once a player leaves/returns to the Game.

Information: When a player makes a purchase, the RemoteEvent fires up, enabling the BoolValues for the Tools to be True. The BoolValues are located inside a Folder named "Inventory" inside the player's Backpack. And there's a script thats set to clone the Tools into the StarterGear and Backpack. That part all seems to work perfectly. Its when the player leaves a game and returns, that the data is not being saved. There's no Output showing that the DataStore has failed, and I made sure the API Services were enabled.

The DataStore script is a Module Script inside ServerScriptService.

Any idea how to fix this to function properly?

My Module Script is below:

local module = {}
local DataStoreService = game:GetService("DataStoreService")
local InventoryItems = DataStoreService:GetDataStore("TEST")
AUTOSAVE_INTERVAL = 120

game.Players.PlayerAdded:Connect(function(Player)
local Key = "PlayerIdNum-"..Player.UserId.."_ToolItems"

--leaderstats
local inew = Instance.new
local ls = inew("Folder")

    ls.Name = "leaderstats"
    ls.Parent = Player

local points = inew("IntValue")
    points.Name = "Points"
    points.Value = 0
    points.Parent = ls

local experience = inew("IntValue")
    experience.Name = "Experience"
    experience.Value = 0
    experience.Parent = ls

local level = inew("IntValue")
    level.Name = "Level"
    level.Value = 1
    level.Parent = ls 

--Inventory
local InvData = Player:WaitForChild("Backpack"):WaitForChild("Inventory")
local HasGun = InvData:WaitForChild("HasGun")

--Saving Data
local StoreToSet = {}
local DataToGet = InventoryItems:GetAsync(Key)
    if DataToGet ~= nil then
    if #DataToGet >= 1 then
    if DataToGet[1] ~= nil then
    HasGun.Value = DataToGet[1]
        table.insert(StoreToSet, DataToGet[1])
else

DataToGet[1] = HasGun.Value
    HasGun.Value = false
        table.insert(StoreToSet, DataToGet[1])
end
end

else

DataToGet = {}
DataToGet[1] = HasGun.Value
    HasGun.Value = false
        table.insert(StoreToSet, DataToGet[1])

print("New Data")
end

InventoryItems:SetAsync(Key, StoreToSet)
repeat wait() until Player.Character

if Player.Character and Player.Character:FindFirstChild("Humanoid") then
Player.Character.Humanoid.MaxHealth = 100 + (level.Value*10)

end

level.Changed:Connect(function(value)
if Player.Character and Player.Character:FindFirstChild("Humanoid") then
    Player.Character.Humanoid.MaxHealth = 100 + (level.Value*10)
end
end)

Player.CharacterAdded:Connect(function(character)
    character:WaitForChild("Humanoid").MaxHealth = 100 + (level.Value*10)

end)

local required = (level.Value*70)

experience.Changed:Connect(function()
    if experience.Value >= required then
        level.Value=level.Value+1
        experience.Value = experience.Value-required

end
end)
end)


-- PLAYER REMOVING


game.Players.PlayerRemoving:Connect(function(Player)

local Key = "PlayerIdNum-"..Player.UserId.."_ToolItems"
local InvData = Player:WaitForChild("Backpack"):WaitForChild("Inventory")
local ls = Player:WaitForChild("leaderstats")
local HasGun = InvData:WaitForChild("HasGun")

local points = ls:WaitForChild("Points")
local exp = ls:WaitForChild("Experience")
local level = ls:WaitForChild("Level")

local DataToSave = {
    HasGun.Value,
    points.Value,
    exp.Value,
    level.Value,
}

InventoryItems:SetAsync(Key, DataToSave)
end)

spawn(function()

while wait(AUTOSAVE_INTERVAL) do

for i, Player in pairs (game:GetService("Players"):GetChildren()) do --for every player in the game, save
print("Auto-saving " .. Player.Name .. "'s Data")

local Key = "PlayerIdNum-"..Player.UserId.."_ToolItems"
local InvData = Player:WaitForChild("Backpack"):WaitForChild("Inventory")
local ls = Player:WaitForChild("leaderstats")
local HasGun = InvData:WaitForChild("HasGun")
local points = ls:WaitForChild("Points")
local exp = ls:WaitForChild("Experience")
local level = ls:WaitForChild("Level")

local DataToSave = {
    HasGun.Value,
    points.Value,
    exp.Value,
    level.Value,
}

InventoryItems:SetAsync(Key, DataToSave)
print("Successfully Auto-saved " .. Player.Name .. "'s Data")

end
end
end)

return module