hent fra db til variabel

Jeg har en tabel, hvor jeg har 3 rækker.
ID | Felt| Vaerdi
1    1    X
1    2    X
1    3    C
2    1    X
2    2    X
2    3    C
3    1    X
3    2    X
3    3    C

jeg gerne vil hente rs("Felt") og rs("Vaerdi") where ID = 1
strSQL = "Select * from tbl_data where Id =" & Session("ID")
OK det virker!

Nu kunne jeg så godt tænke mig at lave en variabel der består af navn + rs("Felt") = rs(Vaerdi)

Hvordan gør jeg det?

jeg har prøvet med:
Dim Felt(28)
Do
  Felt(rs(Felt)) = rs("Vaerdi")
  rs.MoveNext
Loop While Not rs.EOF

men det virker ikke, hvad gør jeg forkert?