concatenare virgole in un ciclo... help me

[mosquito70]

Ciao,
vi posto il mio codice. Estrae molto semplicemente dei dati da una tabella.

strcategoria01=""
icate=0

sqlcate="SELECT * FROM v_asp_repo_RelaAvviDettcate WHERE CODI_AVVI="&rsprinci("codi_Avvi")

Set rscate = cnnSearch.Execute(sqlcate)

if not(rscate.eof) then
do while not(rscate.eof)

icate=icate+1
if (icate=1) then
strcategoria01=rscate("desccategoria")&","
else
strcategoria01=strcategoria01&" "&rscate("desccategoria")
end if



rscate.movenext

loop

rscate.Close
set rscate = Nothing

else
end if

ma perchè secondo vo il risultano è

AA,BB,CC,

e non
AA,BB



Grazie per l'aiuto

[optime]

...

if strcategoria01 = "" then
   strcategoria01 = rscate("desccategoria")
else
   strcategoria01 = strcategoria01 & ", " & rscate("desccategoria")
end if