for each con datatable vb.net

[rigo_5834]

hola tengo un ciclo for each que recorre segun la cantidad de filas de un select.
y va insertando en otra tabla todos esos registros, el problema es que me repite el ultimo registro siempre :S ..no se que hacer favor alguien que me oriente.

Código:

    

For Each row As DataRow In dt.Rows

            campo= row("campo1").ToString

           

   sqlcmd.CommandText = "INSERT INTO TABLA(CAMPO1) VALUES('" + CAMPO + "')"
   sqlcmd.ExecuteNonQuery()
     
     
  Next