Generering af demodate

I forbindelse med generering af data til en demo database, skal et af fem felter i db have værdi 1. De andre
fire felter i den samme post (id) skal have værdien nul.

Jeg har prøvet med følgende, men det fungerer ikke efter hensigten

function RndMellem(Fra, Til) ' Begge tal inklusive
  randomize
  til = til + 1
  RndMellem = int((Til - Fra) * rnd) + Fra
end function

' alt felter nulstilles
henv_1 = 0
henv_2 = 0
henv_3 = 0
henv_4 = 0
henv_5 = 0

' det ene felt som skal have værdien 1
var_a = RndMellem (0,1)
str_henv = "henv_" & var_a
str_henv = RndMellem (0,1)

? :-) karsten_larsen