' Connection String
    Dim conn As New SqlConnection(connectionstring)
 
    'Dim SetCmd As New SqlCommand("SET IDENTITY_INSERT " & tabellenname & "" & _
      "OFF", conn)
    Dim SetCmd As New SqlCommand("SET IDENTITY_INSERT " & tabellenname & " ON", _
    conn)
 
 
 
   Try
      For Each dr In dt.Rows
        conn.Open()
        MsgBox(SetCmd.ExecuteNonQuery.ToString)
        If dr!uLogonName = "Administrator" Then
          dr.Delete()
        End If
        conn.Close()
      Next

Es ist alles eine Frage der
Relation und Perspektive.