Leaderstats With DataStore Failure?

When a value incercrases, it doesn't saves with DataStore, here is the script:

local DataStoreService = game:GetService("DataStoreService")

local myDataStore = DataStoreService:GetDataStore("myDataStore")

 -- Creates a leaderboard that shows player variables
    local function onPlayerJoin(player)
        local leaderstats = Instance.new("Folder")
        leaderstats.Name = "leaderstats"
        leaderstats.Parent = player

        local gold = Instance.new("IntValue")
        gold.Name = "Gold"
        gold.Value = 0
        gold.Parent = leaderstats

        local items= Instance.new("IntValue")
        items.Name = "Molecules"
        items.Value = 0
        items.Parent = leaderstats

        local spaces = Instance.new("IntValue")
        spaces.Name = "Spaces"
        spaces.Value = 2
        spaces.Parent = leaderstats

    end

    -- Run onPlayerJoin when the PlayerAdded event fires
    game.Players.PlayerAdded:Connect(onPlayerJoin)



local data      
local success, errormessage = pcall(function()
    myDataStore:GetAsync(player.UserId.."-items")
        myDataStore:GetAsync(player.UserId.."-spaces")
            myDataStore:GetAsync(player.UserId.."-gold")
    end)

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

    local success, errormessage = pcall(function()
    data = myDataStore:SetAsync(player.UserId.."-",player.leaderstats.gold.Value)

    data = myDataStore:SetAsync(player.UserId.."-",player.leaderstats.items.Value)

    data = myDataStore:SetAsync(player.UserId.."-",player.leaderstats.spaces.Value)
end)

if success then

gold.Value = data
items.Value = data
spaces.Value = data
else
    print("Unexcepted Error Happened while saving your data! ")
    warn(errormessage)

end

if success then
print ("playerdatasaved")
    else
    print ("playerdatanotsaved")
    warn(errormessage)
    end
end)