read_entry <- function(conn, idwert) {
  dbxSelect(conn, paste0("SELECT * FROM entries WHERE id=", idwert))
}