funzione execute

[lucavizzi]

for i=0 to rs.fields.count-1
    Execute(rs.fields(i).name=rs.fields(i).value)
next 

vorrei assegnare alla nuova variabile che si chiamerà col nome del campo, il valore del campo stesso.

mi da questo errore:
Microsoft VBScript runtime error '800a000d'

Type mismatch: 'Execute'

come posso ottenere variabili denominate colnomecampo a cui assegnare il valore del campo stesso?