function QuerySQL(usernameR,passwordR,email,serial)
  local usernameCheck = exports.sql:query_assoc_single( "SELECT username FROM accounts WHERE username = '" .. usernameR .. "'" )
  if usernameCheck then

  triggerClientEvent (source, "usernameTaken", root)

  else

  local registerFinish = exports.sql:query_free("INSERT INTO accounts SET username='" .. usernameR .. "', password=MD5('" .. passwordR .. "')")
  if registerFinish then
  local accountAdded = addAccount(usernameR,passwordR)


  triggerClientEvent (source, "accountCreated", getRootElement())

  else

  triggerClientEvent (source, "AccountError", getRootElement())
      end
     end
end