Πρόβλημα με κώδικα Select Case Yes/No

[γιώργοςΚ]

Αγαπητοί φίλοι γειά σας και πάλι,

Εξαιτίας της απειρίας μου σε κώδικα Vba χρειάζομαι και πάι την βοήθεια σας. Προσπαθώ (αλλά μάταια) να γραψω ένα κώδικα με το Select Case Yes/No (τον οποίο ομολογώ πως αντέγραψα απο μια άλλη βάση) αλλά κάτι κάνω λάθος και δεν δουλεύει. Συγκεκριμένα έγραψα:

Private Sub cmdDelete_Click()

Result = MsgBox("Μήνυμα 1?", vbYesNo)
Select Case Result
Case vbYes
DoCmd.SetWarnings False
DoCmd.OpenQuery "qAppentNewFood"
DoCmd.SetWarnings True

MsgBox "Μύνημα επιβεβαίωσης", vbInformation, "Επιτυχώς"
Me.Form.Refresh
Case vbNo
DoCmd.CancelEvent
End Select
End Sub


Κτυπά συνεχώς όταν και εφόσον τρέξει ο κώδικας και μου υποδεικνύει το πρώτο σκελος (που σημειώνω με κόκκινο)

Ευχαριστώ εκ προτέρων

(επισυνάπτω το μήνυμα που λαμβάνω απο την Vba)