dataStores DONT SAVE DATA?!

I was testing my DataStore script and I noticed the data wasn't saving. The only things printing are: "GenuineWaffles has no data." and basically just the stat values that are in a table called "Data"

It never saves and it's killing me.

Here is the script:

--< Variables >--

local DataStoreService = game:GetService('DataStoreService')
local ServerStorage = game:GetService('ServerStorage')

local MainModules = ServerStorage:WaitForChild('Main - Modules')
local DataStore = DataStoreService:GetDataStore('test')

local DataModule = require(MainModules:WaitForChild('Data - Module'))

local Stats = {
    'NeededXP';
    'Level';
    'Coins';
    'XP';
}

local DefaultValues = {
    ['NeededXP'] = 100;
    ['Level'] = 1;
    ['Coins'] = 300;
    ['XP'] = 0;
}

--< Functions >--

local function OnPlayerAdded(NewPlayer)
    DataModule.CreateData(NewPlayer,Stats,DefaultValues)
    DataModule.LoadData(NewPlayer,DataStore)
end

local function OnPlayerLeaving(OldPlayer)
    DataModule.SaveData(OldPlayer,DataStore,Stats)
end

--< Main - Program >--

game:GetService('Players').PlayerAdded:Connect(OnPlayerAdded)

game:GetService('Players').PlayerRemoving:Connect(OnPlayerLeaving)

Here is the module:

--< Variables >--

local Module = {}

--< Functions >--

function Module.CreateKey(Player)
    return ('Key-'..Player.UserId)
end

function Module.CreateObject(Parent,Class,Name)
    local Object = Instance.new(Class)
    Object.Parent = Parent
    Object.Name = Name
    return (Object)
end

function Module.CreateData(Player,Stats,DefaultValues)
    local DataFolder = Module.CreateObject(Player,'Folder','DataFolder')
    for Index,Value in next, Stats do
        local Object = Module.CreateObject(DataFolder,'IntValue',Value)
        Object.Value = DefaultValues[Value]
    end
end

function Module.LoadData(Player,DataStore)
    local DataFolder = Player:WaitForChild('DataFolder')
    local Key = Module.CreateKey(Player)
    local Data
    local Success,Error = pcall(function()
        Data = DataStore:GetAsync(Key)
    end)
    if not (Error) then
        if (Data) then
            for Index,Value in (Data) do
                DataFolder[Value].Value = Data[Index]
            end
        else
            print(Player.Name..' has no data.')
        end
    else
        print(Error)
        Player:Kick('There was an error in processing your data.')
    end
end

function Module.SaveData(Player,DataStore,Stats)
    local DataFolder = Player:WaitForChild('DataFolder')
    local Data = {}
    local Key = Module.CreateKey(Player)    
    for Index,Value in next, Stats do
        table.insert(Data,DataFolder[Value].Value)
    end
    print(unpack(Data))
    DataStore:SetAsync(Key,Data)
    print('Saved')
end

--< Main - Program >--

return Module

It never works! If someone can help, please do. And if you need anymore information, please ask.