value field_to_string fld = 
    match fld with
    [ Int   i -> string_of_int i
    | Str   s -> ("\"" ^ s ^ "\"")
    | Date  d -> ("\"" ^ (date_to_string d) ^ "\"")
    | Float f -> string_of_float f
    | _       -> "NULL"]