aHHHH

????
con un solo insert puedes insertar un tanate de cosas, ejem
sSQL = sSQL & "INSERT INTO Auctions (ItemOwner, ItemTitle, CategoryID, Ended, EmailsSent) VALUES ( SQLVal(valRS.Fields("ID")) & , SQLStr(sTitle) & "SQLVAl(iCat) & " false , yes)
Entend[i tu pregunta?