queste linee non hanno senso
codice:
garanzia = replace(garanzia, ", ", ",")
garanzia = split(garanzia,",")

for i = 0 to UBound(garanzia)
garanzia = garanzia(i)
next
soprattutto questa:

codice:
garanzia = garanzia(i)
ma che stai cercando di fare??

codice:
for i = 0 to UBound(garanzia)

if i<10 then
indice="0" & i
else
indice=i
end if
rs("comp_" & indice) = replace(garanzia(i),"'","''")

next