รบกวนพี่ๆๆช่วยที่ครับ คำสัง Delete ครับ พี่ๆๆช่วยทีครับคือโค๊ดตัวนี้มันลบข้อมูลจิงๆๆแต่ผมอยากให้มันมีการยืนยันก่อนครับจึงลบข้อมูล

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If MessageBox.Show("Are you sure ?", "", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
Dim cmdgoldTypeDelete As SqlCommand = New SqlCommand("Delete from member where mem_ID='" & mem_id.Text & "'", connect)
cmdgoldTypeDelete.ExecuteNonQuery()
displaydata()
MessageBox.Show("ระบบทำการลบข้อมูลเรียบร้อยแล้วค่ะ", "ลบข้อมูลเรียบร้อย!!", MessageBoxButtons.OK, MessageBoxIcon.Information)
cleardata()
TextBox1.Text = ""
Personnotenable()
Button9.Enabled = True
End If
End Sub