รบกวนด้วยครับเกี่ยวกับโค้ดปุ่มแก้ไขกับปุ่มที่ใช้ลบข้อมูลในฐานข้อมูลครับ

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
            Try
                sb.Remove(0, sb.Length)
                sb.Append("update ID_cus,name,Idcard,Address,age,tel from cs")
                
                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 = TextBox1.Text.Trim
                    Dim result As Integer
                    result = .ExecuteNonQuery
                    If result = 0 Then
                        tr.Rollback()
                        MessageBox.Show("รหัสที่คุณป้อนไม่ถูกต้อง!!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
                        TextBox1.SelectAll()
                    Else
                        tr.Commit()
                        MessageBox.Show("แก้ไขข้อมูลลูกค้าเรียบร้อยแล้ว!!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)


                        showdata()
                        formatdgvcustomerlist()
                    End If
                End With

            Catch ex As Exception
                tr.Rollback()
                MessageBox.Show("เกิดข้อผิดพลาด เนื่องจาก" & ex.Message, "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End Try
        End If
        TextBox1.Focus()
    End Sub

 Private Sub formatdgvcustomerlist()
        With dgvcustomerlist
            If .RowCount = 0 Then
                .Columns(0).HeaderText = "รหัส"
                .Columns(1).HeaderText = "ชื่อ-นามสกุล"
                .Columns(2).HeaderText = "รหัสบัตรประชาชน"
                .Columns(3).HeaderText = "ที่อยู่"
                .Columns(4).HeaderText = "อายุ"
                .Columns(5).HeaderText = "เบอร์โทรศัพท์"

                .Columns(0).Width = 1
                .Columns(1).Width = 100
                .Columns(2).Width = 60
                .Columns(3).Width = 100
                .Columns(4).Width = 5
                .Columns(5).Width = 5
            End If
        End With
    End Sub