Begin Transaction Do While <qqcoisa> Insert Into tabela (campos) values (valores) EndDo End Transaction