How can i make datastores save faster?

So i have this game and im trying to save many items before a player leaves the game but it is not able to save it all before the player leaves, so is there a faster way that i can save datastores? Heres the code.

game.Players.PlayerRemoving:connect(function(p)
local st = {p.RealGems.Value,p.SavedOre.Coal.Value,p.SavedOre.Iron.Value,p.VIPMaxXP.Value,p.VIPXP.Value,p.VIPLvl.Value,p.CodeStorage:FindFirstChild("N3wG@m3").Value,p.CodeStorage:FindFirstChild("@dm1nsRul3").Value,p.GoldMemberLeft.Value}
ds:SetAsync(p.Name.."key",st)
if p.OwnsTycoon.Value == true then
for i,Save in pairs(game.Workspace.Tycoon:FindFirstChild(p.TycoonOwned.Value).Purchases:GetChildren()) do
	p.ItemStorage:FindFirstChild(Save.Name).Value = true
	local s = {p.ItemStorage:FindFirstChild(Save.Name).Value}
	ds:SetAsync(p.Name.."key",s)
end
end
end)