Small Script

 'Front Critical
   If MsgBox("Apakah yakin akan menghapus : " & xxx & "", _
        vbCritical + vbYesNo, Me.Caption) = vbYes Then 

'Call proccedure
    dB.Execute "CALL `db`.`procedure_name('" & xIdKredit & "')