Bonjour a tous

Voici un bout de code ou les xxx remplace ce que je n'arrive pas à trouver j'espère que vous pourrez trouver, merci d'avance.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
Dim A As String
A = InputBox("Quel est le mot de passe???")
If A = "yoda" Then xxx
Else
docmd.openform "Form1"
End If
 
End Sub
------------------------------------------
Comment remplacer les xxx par une instruction pour quitter l'application???
Merci de vôtre aide