เขียนแก้ไข้ข้อมูลในฐานข้อมูลมันขึ้นแล้วครับแต่ไม่มีการเปลี่ยนแปลงในตัวฐานข้อมูลเลยเป็นเพราะอะไรหรอครับ

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If TextBox1.Text.Trim = "" Then
            MessageBox.Show("กรุณาป้อนรหัสลูกค้าก่อน!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            TextBox1.Focus()
        End If

        If TextBox2.Text.Trim = "" Then
            MessageBox.Show("กรุณาป้อนชื่อ-นามสกุลลูกค้าก่อน!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            TextBox2.Focus()
        End If
        If TextBox3.Text.Trim = "" Then
            MessageBox.Show("กรุณาป้อนรหัสบัตรประชาชนลูกค้าก่อน!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            TextBox3.Focus()
        End If
        If TextBox4.Text.Trim = "" Then
            MessageBox.Show("กรุณาป้อนที่อยู่ลูกค้าก่อน!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            TextBox4.Focus()
        End If

        If TextBox5.Text.Trim = "" Then
            MessageBox.Show("กรุณาป้อนอายุลูกค้าก่อน!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            TextBox5.Focus()
        End If
        If TextBox6.Text.Trim = "" Then
            MessageBox.Show("กรุณาป้อนเบอร์โทรศัพท์ลูกค้าก่อน!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            TextBox6.Focus()
        End If
        If MessageBox.Show("คุณต้องการแก้ไขข้อมูลลูกค้าใหม่ ใช่หรือไม่?", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            tr = Conn.BeginTransaction

            sb.Remove(0, sb.Length)
            sb.Append("update cs")
            sb.Append(" set name=@name,IDcard=@IDcard,address=@address,age=@age,tel=@tel")
            sb.Append(" where (id_cus=@id_cus)")
            Dim sqledit As String
            sqledit = sb.ToString()

            With com
                .CommandText = sqledit
                .CommandType = CommandType.Text
                .Connection = Conn
                .Transaction = tr
                .Parameters.Clear()
                .Parameters.Add("@id_cus", OleDbType.VarChar).Value = TextBox1.Text.Trim
                .Parameters.Add("@name", OleDbType.VarChar).Value = TextBox2.Text.Trim
                .Parameters.Add("@IDcard", OleDbType.VarChar).Value = TextBox3.Text.Trim
                .Parameters.Add("@Address", OleDbType.VarChar).Value = TextBox4.Text.Trim
                .Parameters.Add("@Age", OleDbType.VarChar).Value = TextBox5.Text.Trim
                .Parameters.Add("@tel", OleDbType.VarChar).Value = TextBox6.Text.Trim

                Dim result As Integer
                result = .ExecuteNonQuery()
            End With

            tr.Commit()
            MessageBox.Show("แก้ไขข้อมูลลูกค้าเรียบร้อยแล้ว!!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)

            ClearAllData()
            showdata()
            formatdgvcustomerlist()
        End If

        TextBox1.Focus()
    End Sub