我用下面的代码向数据库上传数据，为何同一行数据上传后在数据库中有两行相同的数据，是本地数据表中的两倍

Dim cmd As New SQLCommand
Dim dt As Date
Dim n1,n2 As Integer
If DataTables("综合_IP变更记录").DataRows.count = 0 Then
    Return
End If

If connections.contains("远程数据库") = True Then
    Connections.delete("远程数据库")
End If

Connections.Add("远程数据库",_s1)

cmd.C

cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()

For Each dr As DataRow In  DataTables("综合_IP变更记录").DataRows
    cmd.CommandText = "Insert Into {综合_IP变更记录} ([变更时间],[计算机名],[操作系统],[系统版本],[系统用户],[MAC地址],[变更前IP],[变更后IP],[上传时间]) Values (\'" & dr("变更时间") & "\',\'" & dr("计算机名") & "\',\'" & dr("操作系统") & "\',\'" & dr("系统版本") & "\',\'" & dr("系统用户") & "\',\'" & dr("MAC地址") & "\',\'" & dr("变更前IP") & "\',\'" & dr("变更后IP") & "\',\'" & dt & "\')"
    If cmd.ExecuteNonQuery = 0 Then
        Exit For
    ElseIf cmd.ExecuteNonQuery = 1 Then
        dr.delete()
    End If
Next
DataTables("综合_IP变更记录").save()

Dim r As Integer = cmd.ExecuteNonQuery

If r = 0 Then

Else If r = 1 Then

End If

解决，这是为什么呢