hent data

Jeg har en access database med en table (tbl_highscore) og med 4 koloner(DAGSDATO, NAVN, HIGH, DART)
det er meningen at jeg skal hente 10 recordset data ud i 2 variabler
intHighscore, skal indholde 3 koloner(DAGSDATO, NAVN, HIGH)
intdart skal indholde 3 koloner(DAGSDATO, NAVN, DART)
intHighscore, intdart ser måske lidt mystisk ud men jeg skal bruge dem i Flash og derfor er de sådanne.
Det virker godt nok men er der ikke en bedre måde at hente data ud på end den jeg har udarbejdet?
'----
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("data/bull2000.mdb")
Conn.Open DSN
tNr=1

    strSQL = "SELECT top 10 * FROM tbl_highscore ORDER BY HIGH Desc;"
    Set rs = Conn.Execute(strSQL)
    Do While Not rs.EOF

      intHighscore = intHighscore + "&var_navn"&tNr&"="& rs("NAVN")&"&var_high"&tNr&"="& rs("HIGH")&"&var_dato"&tNr&"="& rs("DAGSDATO") &"&"
            rs.MoveNext
      tNr=tNr+1
      Loop
    response.write "indhold af intHighscore : " & intHighscore
    '----
   
tNr=1
strSQLdart = "SELECT top 10 * FROM tbl_highscore ORDER BY DART;"
    Set rsdart = Conn.Execute(strSQLdart)
    Do While Not rsdart.EOF

      intdart = intdart + "&d_navn"&tNr&"="& rsdart("NAVN")&"&d_high"&tNr&"="& rsdart("DART")&"&d_dato"&tNr&"="& rsdart("DAGSDATO") &"&"
            rsdart.MoveNext
      tNr=tNr+1
      Loop
    response.write "indhold af intdart : " & intdart
   
'lukke forbindelse til databasen
Conn.Close
Set Conn = Nothing