why is my data store script not working when I'm pretty sure everything is right?

I have followed tutorials and did everything they told me to do but the script won't work and there is nothing in the output. the only thing I changed is that there isn't a leaderstats folder but it just has a different name.

here is the script

local DataStoreService = game:GetService("DataStoreService")

local DataStore = DataStoreService:GetDataStore("DataStore")

local GravelCo = DataStoreService:GetDataStore("GravelCo")

game.Players.PlayerAdded:Connect(function(player)
    local Data = Instance.new("Folder")
    Data.Name = "DataFolder"
    Data.Parent = player

    local GravelColor = Instance.new("IntValue")
    GravelColor.Name = "GravelColor"
    GravelColor.Parent = Data

    local data
    local success, error = pcall(function()
        data = GravelCo:GetAsync(player.UserId.."-GravelColor")
    end)

    if success then
        GravelColor.Value = data
    else
        warn(error)
        print("error saving")
    end

end)

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

    local success, error = pcall(function()
        GravelCo:SetAsync(player.UserId.."-GravelColor",player.DataFolder.GravelColor.Value)
    end)

    if success then
        print("data Saved")
    else
        print("error Saving")
        warn(error)
    end

end)