If MessageBox.Show("ต้องการลบอมูลนี้จริงหรือไม่", "ลบข้อ", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
Dim sqldel As String = " Delete from apartment"
sqldel &= " where apRoom={0}"
sqldel = String.Format(sqldel, TextBox9.Text)
cm = New OleDbCommand(sqldel, con)
cm.ExecuteNonQuery()
End If