How to make a custom leaderboard that level ups and saves?

Hello, I made a leaderboard that saves and load the values. An normal obby checkpoint system i added too works fine that part. In this leaderboard is an level up system* Here code:

game.Players.PlayerAdded:connect(function(player)

    TWEE.Changed:connect(function(New)
        local function DRIE()
        local needed = (DRIE.Value*120)
            if TWEE.Value >= needed then
            DRIE.Value = DRIE.Value +1
            TWEE.Value = TWEE.Value-needed
            DRIE()
        end
    end
    end)
end)

Its may a bit confusing of the DB... aa and stuff . But i thinks the script isnot working bc i added to much game.Players.PlayerAdded:connect(function(player) in one >function may its the problem, but if i take the save and load out of the function it doesnt find if Da then EEN.Value = Da end (Line 83 until 91)

But if some know how to fix it, i will be very happy. so i can keep working on my game.

Full leaderboard;

local Datastore = game:GetService("DataStoreService"):GetDataStore("DataA")

function VAR(object)
local player = game.Players:playerFromCharacter(object)
if player ~= nil then
local AA = player.leaderstats
local AB = game.Workspace:FindFirstChild(AA.LVL.Value)
print("Checking..")
object.Torso.CFrame = object.Torso.CFrame + Vector3.new(0,3,0)
wait()
object.Torso.CFrame = AB.CFrame + Vector3.new(0,3,0)
end end

-- "AB = Checkpoint" "XOP = Experience" "QW = Wins" "LP = Loses" "IPE = Coins" "TR = Trofee" "DHJK = Money" "FERT = Level" "KLOPT = Gemspoins"

function KOE(object)
if object.className == "Player" then
local stats = Instance.new('IntValue')
stats.Name = "leaderstats"
local EEN = Instance.new('IntValue')
EEN.Name = "LVL" -- Checkpoint (Da)
EEN.Value = 1
EEN.Parent = stats
stats.Parent = object
local TWEE = Instance.new('IntValue')
TWEE.Parent = stats
TWEE.Name = "XOP" -- XP (Db)
TWEE.Value = 0
local DRIE = Instance.new('IntValue')
DRIE.Parent = stats
DRIE.Name = "FERT" -- Level (Dc)
DRIE.Value = 0
local VIER = Instance.new('IntValue')
VIER.Parent = stats
VIER.Name = "QW" -- Wins (Dd)
VIER.Value = 0
local VIJF = Instance.new('IntValue')
VIJF.Parent = stats
VIJF.Name = "LP" -- Loses (De)
VIJF.Value = 0
local ZES = Instance.new('IntValue')
ZES.Parent = stats
ZES.Name = "DHJK" -- Money (Df)
ZES.Value = 0
local ZEVEN = Instance.new('IntValue')
ZEVEN.Parent = stats
ZEVEN.Name = "IPE" -- Coins (Dg)
ZEVEN.Value = 0
local ACHT = Instance.new('IntValue')
ACHT.Parent = stats
ACHT.Name = "TR" -- Trofee (Dh)
ACHT.Value = 0
local NEGEN = Instance.new('IntValue')
NEGEN.Parent = stats
NEGEN.Name = "KLOPT" -- Gems (Di)
NEGEN.Value = 0

game.Players.PlayerAdded:connect(function(player)

    TWEE.Changed:connect(function()
        local function DRIE()
        local needed = (DRIE.Value*120)
            if TWEE.Value >= needed then
            DRIE.Value = DRIE.Value +1
            TWEE.Value = TWEE.Value-needed
            DRIE()
        end
    end
    end)
end)

    game.Players.PlayerAdded:connect(function(player)
        local Da = Datastore:GetAsync(tostring(player.userId)..":DA")
        local Db = Datastore:GetAsync(tostring(player.userId)..":DB")
        local Dc = Datastore:GetAsync(tostring(player.userId)..":DC")
        local Dd = Datastore:GetAsync(tostring(player.userId)..":DD")
        local De = Datastore:GetAsync(tostring(player.userId)..":DE")
        local Df = Datastore:GetAsync(tostring(player.userId)..":DF")
        local Dg = Datastore:GetAsync(tostring(player.userId)..":DG")
        local Dh = Datastore:GetAsync(tostring(player.userId)..":DH")
        local Di = Datastore:GetAsync(tostring(player.userId)..":DI")

        if Da then EEN.Value = Da end
        if Db then TWEE.Value = Db end
        if Dc then DRIE.Value = Dc end
        if Dd then VIER.Value = Dd end
        if De then VIJF.Value = De end
        if Df then ZES.Value = Df end
        if Dg then ZEVEN.Value = Dg end
        if Dh then ACHT.Value = Dh end
        if Di then NEGEN.Value = Di end

    end)

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

    local Stats = player:FindFirstChild("leaderstats")

        if Stats then

            local DAA = Stats:FindFirstChild("LVL")
            local DBB = Stats:FindFirstChild("XOP")
            local DCC = Stats:FindFirstChild("FERT")
            local DDD = Stats:FindFirstChild("QW")
            local DEE = Stats:FindFirstChild("LP")
            local DFF = Stats:FindFirstChild("DHJK")
            local DGG = Stats:FindFirstChild("IPE")
            local DHH = Stats:FindFirstChild("TR")
            local DII = Stats:FindFirstChild("KLOPT")

            if DAA then Datastore:SetAsync(tostring(player.userId)..":DA", EEN.Value) end
            if DBB then Datastore:SetAsync(tostring(player.userId)..":DB", TWEE.Value) end
            if DCC then Datastore:SetAsync(tostring(player.userId)..":DC", DRIE.Value) end
            if DDD then Datastore:SetAsync(tostring(player.userId)..":DD", VIER.Value) end
            if DEE then Datastore:SetAsync(tostring(player.userId)..":DE", VIJF.Value) end
            if DFF then Datastore:SetAsync(tostring(player.userId)..":DF", ZES.Value) end
            if DGG then Datastore:SetAsync(tostring(player.userId)..":DG", ZEVEN.Value) end
            if DHH then Datastore:SetAsync(tostring(player.userId)..":DH", ACHT.Value) end
            if DII then Datastore:SetAsync(tostring(player.userId)..":DI", NEGEN.Value) end

        end
    end)
end
end

game.Players.ChildAdded:connect(KOE)
game.Workspace.ChildAdded:connect(VAR)

The only error that shows up is (" Script 'Workspace.Leaderboard', Line 111" Cannot write to DataStore from studio if API access is not enabled. Enable it by going to the Game Settings page.)

Thank you sorry for the confusing script.