مشكله هتخننى فى الحفظ

السلام عليكم ورحمته الله وبركاته

الكود دا باستخدمه فى الحفظ هو بيظهر رساله تم الحفظ ولكن لا يتم الحفظ فى الجدول كما انه يقوم بمسح اخر سجر انا دخلت فيه البيانات يعنى السجل الى قمت بادخال البيانات فيه بيقوم بمسحه

ويظهر رساله تم الحفظ وملكن لا يتم الحفظ فى الجدول ما الحل

الكود كالاتى

   For x As Integer = 0 To DataGridView1.Rows.Count - 1
            If Not DataGridView1.Rows.Item(x).IsNewRow Then
                Dim id As Integer
                Dim name, super As String
                Dim cmd2 As New SqlClient.SqlCommand("SELECT COUNT(*) FROM dept WHERE id=@id", cn)
                id = DataGridView1.Rows.Item(x).Cells(1).Value
                cmd2.Parameters.AddWithValue("@id", id)
                Dim count As Integer = cmd2.ExecuteScalar()
                If count > 0 Then
                    Continue For
                End If
                name = DataGridView1.Rows.Item(x).Cells(2).Value
                super = DataGridView1.Rows.Item(x).Cells(3).Value
                cmd.Connection = cn
                cmd.Parameters.Clear()
                cmd.CommandType = CommandType.StoredProcedure
                cmd.CommandText = "insertdept"
                cmd.Parameters.Add("@id", SqlDbType.Int).Value = id
                cmd.Parameters.Add("@name", SqlDbType.VarChar).Value = name
                cmd.Parameters("@name").Size = 50
                cmd.Parameters.Add("@super", SqlDbType.VarChar).Value = super
                cmd.Parameters("@super").Size = 50
                'cmd.Parameters.Add("@ErId", SqlDbType.Int).Direction = ParameterDirection.Output
                cmd.ExecuteNonQuery()
            End If

        Next
        'If cmd.Parameters("@ErId").Value > 0 Then
        '    MsgBox("لم يتم الحفظ")
        'Else
        MsgBox("تم الحفظ")
        'End If

وشكرا