How to make my Datastore save if a server crashes?

Lately my games server's have been crashing randomly and players are complaining of data loss! Other Devs have suggested adding a save button but I have no idea how to script that, seeing as i'm terrible with Datastores. Is there any way to save in the event of a crash ? Also is my Datastore save and load setup correctly and efficiently?

local saveAs = "LS"

local dataStore = game:GetService("DataStoreService"):GetDataStore(saveAs)
local Players = game:GetService("Players")

Players.PlayerAdded:connect(function(player)
	local stats = player:WaitForChild("leaderstats")
	local data = dataStore:GetAsync(player.UserId)
	if data then
		for name,value in next, data do
			stats[name].Value = value
		end
	end
end)

while wait(60) do
    for _, player in pairs(game.Players:GetChildren()) do
local stats = player:FindFirstChild("leaderstats")
	if stats then
		local data = {}
		for _,stat in ipairs(stats:GetChildren()) do
			data[stat.Name] = stat.Value
		end
		dataStore:SetAsync(player.UserId,data)
	end
end
end 



Players.PlayerRemoving:connect(function(player)
	local stats = player:FindFirstChild("leaderstats")
	if stats then
		local data = {}
		for _,stat in ipairs(stats:GetChildren()) do
			data[stat.Name] = stat.Value
		end
		dataStore:SetAsync(player.UserId,data)
	end
end)