ma al volo ora mi viene questa:

codice:
while not Rs.eof
   campoA = "," & campoA & Rs("a")
   campoB = "," & campoB & Rs("b")
   campoC = "," & campoC & Rs("c")
   Rs.movenext
wend
Rs.Close
set rs = nothing

ArcampoA = Split(Mid(campoA,2),",")
ArcampoB = Split(mid(campoB,2),",")
ArcampoC = Split(Mid(campoC,2),",")
ora hai un array con tutti i campi a tutti i campi b e tutti i campi
e poi lavorarci sopra ogni 4