anche semplicemente con:

cstr(i) & rs.Fields("categoria3")