Variabel som del af variabelnavn

Jeg er ikke nogen haj og har derfor brug for hjælp.

Jeg vil, i en funktion, gerne bruge variabeldata som del af variabelnavn. Dette, da jeg gerne vil spare noget kode. Først slår jeg op i 'users' for at finde brugere - og herefter vil jeg gerne løbe funktionen igennem for alle brugere.

Har en forestilling om, at det skal være noget a la nedenstående, men andre forslag/workarounds er også velkomne.

-----------
strSQL0 = "Select medlem from users where medlem <> 'SYS'order by medlem"
Set rs0 = Conn.Execute(strSQL0)

Do Until rs0.EOF

strSQL = "Select * from kuponer where medlem = '" & medlem & "' and status = 'S' order by kupon_id asc"
Set rs = Conn.Execute(strSQL)

(medlem & "_" & perm_cnt) = 0
(medlem & "_" & perm_gev) = 0
(medlem & "_" & temp_cnt) = 0
(medlem & "_" & temp_gev) = 0

Do Until rs.EOF

if rs("gevinst") > 0 then

  if (medlem & "_" & temp_cnt) = 0 then

  (medlem & "_" & temp_st) = rs("uge") & ", " & rs("aar")

  end if 

  if (medlem & "_" & temp_cnt) >= 0 then

  (medlem & "_" & temp_nd) = rs("uge") & ", " & rs("aar")

  end if

(medlem & "_" & temp_cnt) = (medlem & "_" & temp_cnt) + 1
(medlem & "_" & temp_gev) = (medlem & "_" & temp_gev) + rs("gevinst")

  if (medlem & "_" & temp_cnt) >= (medlem & "_" & perm_cnt) and (medlem & "_" & temp_gev) > (medlem & "_" & perm_gev) then

  (medlem & "_" & perm_cnt) = (medlem & "_" & temp_cnt)
  (medlem & "_" & perm_gev) = (medlem & "_" & temp_gev)
  (medlem & "_" & perm_st)  = (medlem & "_" & temp_st)
  (medlem & "_" & perm_nd)  = (medlem & "_" & temp_nd)

  else

  (medlem & "_" & perm_cnt) = (medlem & "_" & perm_cnt)
  (medlem & "_" & perm_gev) = (medlem & "_" & perm_gev)
  (medlem & "_" & perm_st)  = (medlem & "_" & perm_st)
  (medlem & "_" & perm_nd)  = (medlem & "_" & perm_nd)

  end if

else

(medlem & "_" & temp_cnt) = 0
(medlem & "_" & temp_gev) = 0

end if

rs.MoveNext
Loop


Loop
----------