การ update ข้อมูลด้วย vb205 ไม่ได้ครับ ช่วยที ผมอัพเดทข้อมูลไม่ได้ แต่ insert ข้อมูลได้ฐานข้อมูล

Private Sub ts_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ts_save.Click
        If (txt_idchance.Text.Trim() = "") OrElse (txt_namechance.Text.Trim() = "") Then
            MessageBox.Show("กรุณาป้อนข้อมูลให้ครบทุกช่อง", "คำเตือน !!!  ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            txt_idchance.Focus()
            Exit Sub
        End If
        If MessageBox.Show("คุณต้องการบันทึกข้อมูลใหม่  ใช่หรือไม่ ? ", "ยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then

            sw.Reset()
            sw.Start()
            tr = Conn.BeginTransaction()
            Try
                Select Case ActionFlag
                    Case "ADD"
                        sb.Remove(0, sb.Length())
                        sb.Append("INSERT INTO tbchance(id_chance,name_chance)")
                        sb.Append(" VALUES('" & Me.txt_idchance.Text & "','" & Me.txt_namechance.Text & "')")
                    Case "EDIT"
                        sb.Remove(0, sb.Length())
                        sb.Append("UPDATE tbchance SET")
                        sb.Append(" id_chance='" & txt_idchance.Text & "',")
                        sb.Append(" name_chance='" & txt_namechance.Text & "'")
                        sb.Append(" WHERE (id_chance='" & txt_idchance.Text & "')")
                End Select

                Dim sqladd As String
                sqladd = sb.ToString()

                With Com
                    .CommandText = sqladd
                    .CommandType = CommandType.Text
                    .Connection = Conn
                    .Transaction = tr
                    .Parameters.Clear()
                    .Parameters.Add("id", OleDbType.Integer).Value = txt_idchance.Text.Trim()
                    .Parameters.Add("name", OleDbType.LongVarChar).Value = txt_namechance.Text.Trim()
                    .ExecuteNonQuery()
                End With
                tr.Commit()

                sw.Stop()
                processtime = sw.ElapsedMilliseconds / 1000
                _toolstriplabel.Text = "เวลาที่ใช้ : " & processtime.ToString("0.0000") & " วินาที"

                MessageBox.Show("คุณเพิ่มช่องทางการร้องเรียน  เรียบร้อยแล้ว", " ผลการดำเนินการ ", MessageBoxButtons.OK, MessageBoxIcon.Information)

                ClearAllData()
                showdata()
                formatdgvchance()

                ts_add.Enabled = True
                ts_edit.Enabled = True
                ts_save.Enabled = False
                E_readsonly()
            Catch
                MessageBox.Show("คุณป้อน  'รหัสช่องทางร้องเรียนซ้ำ !!!' ", "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                tr.Rollback()
            End Try
        End If
    End Sub