Probleme fermeture application Access

Bonjour a tous!
j'ai un ptit souci tout bête
En fait j'ouvre naturelement une base Access a la main donc j'ai un formulaire qui s'ouvre automatiquement
et j'aimerais créer un bouton pour quitter mon application access et non que le fomulaire
donc j'ai essayé le code suivant

Private Sub Commande6_Click()
 
 Dim MonAccess As New Access.Application
 Set MonAccess = CurrentDatabase
 MonAccess.Quit acQuitSaveNone
 Set MonAccess = Nothing
 
 
End Sub

Celam e met objet requit lors du

Set MonAccess = CurrentDatabase

Mais je pense que c'est autre chose que Current Database mais petu être un Current Access ou autre
Si quelqu'un peut m'aider je le remcie énormément d'avance