// "pure FP", no mutability:

let makeList dr =

  let rec loop acc =
    if dr.Read()
      then loop (dr.GetItem() :: acc)
      else acc

  loop []