Message Box

Select Case MsgBox("Apakah Yakin data ini akan di hapus?", vbYesNo Or vbExclamation Or vbDefaultButton1, "Peringatan")
   
        Case vbYes
            adopasien.Recordset.Delete adAffectCurrent
            adopasien.Refresh
        Case vbNo
   
End Select