Come fare ad avere il valore dei records in apposite variabili dopo il ciclo while...wend?

[code]
Dim SQL,rec
SQL = "SELECT bla bla bla"
Set Rec = Server.CreateObject ("ADODB.Recordset")
Rec.Open SQL, Conn, 3, 3


While (NOT rec.EOF)


Id= rec("Id")
Descrizione= rec("Descrizione")


rec.MoveNext
WEnd


rec.close
Set rec = nothing

a questo punto mi servirebbe sapere i valori dei vari records in variabili create appositamente per ogniuno dei records; ad es:
id1 descrizione1
id2 descrizione2
etc

[code]