Select Case yöntemi ile yapabilirsiniz.

Önce bir mesaj kutusu çalışacak ve sorgu çalıştırılsın mı diyecek.

Case VbYes

sorgu çalışacak

Case VbNo

msgbox ile işlem iptal edildi yazacak

End Select ile işlemi sonlandıracaksınız.

Uzun uzun kod yazmaya vaktim olmaddığı için kodların tamamını yazamadım ama mantık bu şekilde...
Yapamazsanız yarın detaylı şekilde yardımcı olurum...