ขอโค๊ดปุ่มลบ ของvb2008 โดยให้ขึ้น MessageBox ให้เรากรอกรหัสที่จะลบ และโค๊ดหน้าการขายสินค้า การดึงข้อมูลมาจากตารางหนึ่งมาใส่ในtextbox

Dim code As String = InputBox("กรุณาป้อนรหัสประเภทสินค้าที่ต้องการลบ")
        Dim sqlstring As String = ""
        If code = "" Then Exit Sub
        Dim Result As MsgBoxResult
        Result = MessageBox.Show("คุณต้องการลบข้อมูลใช้หรือไม่ ?", "คำเตือน", MessageBoxButtons.YesNo)
        If Result = MsgBoxResult.Yes Then
            sqlstring = "DELETE * From Employee"
            sqlstring += " Where Emp_id='" & code & "'"
            MessageBox.Show("การลบเสร็จเรียบร้อย", "ยืนยัน")
        End If