get_contact_choices <- function(conn) {
  contacts <- tbl(conn, "contacts") |>
    select(id, display_name) |>
    collect() |>
    arrange(display_name) 
  
  choices <- setNames(as.character(contacts$id), contacts$display_name)
  return(c("Kein Kontakt" = 0, choices))
}