Erro Destino 'campo1' duplicado

[manga 0]

Pessoal,

 

Tenho um comando INSERT INTO que funciona em um Loop. Ele serve para excluir registros em uma tabela e incluir em outra. Tenho um campo chamado "login" que têm valores duplicados, entretanto ele não é indexado. Apesar disso recebo a o erro:

 

Microsoft JET Database Engine error '80040e14' Destino 'login' de saída duplicado. /host/controle/programas/excluir.asp, line 71

Alguém sabe o que tá pegando?

 

O código é:

For Each FormField in Request.Form	If Instr(FormField,"s") = 1  AND Request.Form(FormField)="on" Then	s = replace(FormField,"s","")	id1 = "h"&s	id = Request.Form(id1)sql = "SELECT * FROM "&tabela1&" WHERE id='"&id&"'"set RS = connect.execute(sql)Dim TheFields, TheValues, TheRegFieldFor Each TheRegField in RS.Fields	If TheRegField <> "" Then 	 TheFields = TheFields & TheRegField.Name & ", "  TheValues = TheValues & "'" & RS(TheRegField.Name) & "', "	End IfNextTheFields = left(TheFields, Len(TheFields) - 2)TheValues = left(TheValues, Len(TheValues) - 2)sql1 = "INSERT INTO "&tabela2&" (" & TheFields & ") VALUES (" & TheValues & ")"sql2 = "UPDATE "&tabela2&" SET data_off = #"&Date&"# WHERE id = '" & id & "'"sql3 = "DELETE from "&tabela1&" WHERE id='"&id&"'"connect.execute sql1connect.execute sql2Response.Write tabela1&": "&RS("login")&" - ID: "&id&" excluído<BR>"connect.execute(sql3)End IfNext

[manga 0]

Desencanem, já achei a comida de bola. Precisava limpar as variáveis TheField e TheValues depois do INSERTT+Manga