Dim ArrStruttura()
Redim ArrStruttura(rs.fields.count - 1)
'prende struttura tabella
for i = 0 to UBound(ArrStruttura)
ArrStruttura(i) = rs(i).name
next

ti crei in questo modo l'array con i nomi dei campi