Error คำสั่ง ExecuteNonQuery() แนะนำหน่อยครับ .เพิ่มได้ แต่แก้ไขข้อมูลไม่ได้ แนะนำทีครับ

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim sqlAdd As String
        Dim sqlUpdate As String
        Dim comAdd As New MySqlCommand

        Select Case btnChk  'ตรวจสอบการคลิกปุ่ม
            Case "Add"      'กรณีที่คลิกปุ่ม เพิ่ม

                'ตรวจสอบการป้อนข้อมูลว่าครบถ้วนหรือไม่
                If (txtName.Text = "") Or (txtAddress.Text = "") Or (txtSex.Text = "") Or (txtUser.Text = "") Or (txtPass.Text = "") Or (txtLevel.Text = "") Or (txtphone.Text = "") Or (txtBirthday.Text = "") Then
                    MessageBox.Show("กรุณากรอกข้อมูลให้ครบถ้วน", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                    txtName.Focus()
                    Exit Sub
                End If

                'คำสั่ง SQL เพื่อแทรกข้อมูลในตาราง employees
                sqlAdd = "insert into employees(emp_name,emp_birthday,emp_address,emp_sex,emp_phone,emp_namelog,emp_pass,emp_level) "
                sqlAdd &= "Value('" & txtName.Text & "',"
                sqlAdd &= "'" & txtBirthday.Text & "',"
                sqlAdd &= "'" & txtAddress.Text & "',"
                sqlAdd &= "'" & txtSex.Text & "',"
                sqlAdd &= "'" & txtphone.Text & "',"
                sqlAdd &= "'" & txtUser.Text & "',"
                sqlAdd &= "'" & txtPass.Text & "',"
                sqlAdd &= "'" & txtLevel.Text & "')"

                'การสร้างออปเจคให้ comAdd ทำงาน
                With comAdd
                    .CommandType = CommandType.Text  'เชตประเภทคอมมาน
                    .CommandText = sqlAdd    'ใส่ชุดคำสั่ง SQL
                    .Connection = Conn  'บอกว่าจะไปทางไหน
                    .ExecuteNonQuery()   'ไปทำงานได้ (ส่งคำสั่งไปแบบไม่ต้องการผลลัพธ์คืนมา)
                End With
                MessageBox.Show("บันทึกข้อมูลเรียบร้อย", "ยืนยัน", MessageBoxButtons.OK, MessageBoxIcon.Information)     'แสดง MessageBox ว่าได้บันทึกข้อมูลแล้ว
                showAllEmployee()      'แสดงข้อมูลใน DataGridView

            Case "Update"       'กรณีถ้าคลิกปุ่ม แก้ไข

                'คำสั่ง SQL ในการปรับปรุงข้อมูลในตาราง Employees ตามรหัสพนักงาน
                sqlUpdate = "Update employees "
                sqlUpdate &= "set emp_name='" & txtName.Text & "',"
                sqlUpdate &= "emp_birthday='" & txtBirthday.Text & "',"
                sqlUpdate &= "emp_address='" & txtAddress.Text & "',"
                sqlUpdate &= "emp_sex='" & txtSex.Text & "',"
                sqlUpdate &= "emp_phone='" & txtphone.Text & "',"
                sqlUpdate &= "emp_namelog='" & txtUser.Text & "',"
                sqlUpdate &= "emp_pass='" & txtPass.Text & "',"
                sqlUpdate &= "emp_level='" & txtLevel.Text & "')"
                sqlUpdate &= "where (emp_id=" & CInt(txtID.Text) & ")"

                'การสั่งออปเจค comAdd ให้ทำงาน
                With comAdd
                    .CommandType = CommandType.Text  'เชตประเภทคอมมาน
                    .CommandText = sqlUpdate    'ใส่ชุดคำสั่ง SQL
                    .Connection = Conn  'บอกว่าจะไปทางไหน
                    .ExecuteNonQuery()    'ไปทำงานได้ (ส่งคำสั่งไปแบบไม่ต้องการผลลัพธ์คืนมา)   <<< Error บันทัดนี้
                End With
                MessageBox.Show("แก้ไขข้อมูลเรียบร้อย", "ยืนยัน", MessageBoxButtons.OK, MessageBoxIcon.Information)     'แสดง MessageBox ว่าได้แก้ไขข้อมูลแล้ว
                showAllEmployee()      'แสดงข้อมูลใน DataGridView
            Case Else
                MessageBox.Show("ไม่มีการทำงาน")
        End Select
        btnInsert.Enabled = True        'ปุ่ม เพิ่ม เปิดทำงาน
        btnUpdate.Enabled = True        'ปุ่ม แก้ไข เปิดทำงาน
        btnDelete.Enabled = True        'ปุ่ม ลบ เปิดทำงาน
        btnSave.Enabled = False         'ปุ่ม บันทึก ปิดการทำงาน
        btnCancel.Enabled = False       'ปุ่ม ยกเลิก ปิดการทำงาน
    End Sub