DoCmdオブジェクトのCloseメソッドを使ってテーブルなどの編集後にその内容を保存
して終了させます。

Closeメソッドの書式は以下のとおりです。

    DoCmd.Close [objecttype, objectname], [save]

第1引数のobjecttypeにはテーブルまたはクエリーなどを表す組み込み定数を指定します。
第3引数のsaveに以下のいずれかの定数を指定します。
  acSaveNo
  acSavePrompt (既定値)
  acSaveYes
この内、acSaveYesを使用すると保存して終了となり、保存の確認のプロンプトは表示されません。

サンプルコードでは「Northwind.mdb」の「社員」テーブルを保存して閉じています。

● サンプル　●

Public Sub 終了()

  Dim Response As Integer
  Response = MsgBox("処理を終了しますか？", vbYesNo + vbQuestion, "終了確認")
  Select Case Response
  Case 6
    DoCmd.Close acTable, "社員", acSaveYes
  Case 7
    MsgBox "処理を続けます"
  End Select


● 動作確認 ●

「社員」テーブルが保存されて終了していることを確認してください。


● 補足説明 ●

保存のみを行う場合は以下のようなsaveメソッドを使用します。
DoCmd.Save acTable, "社員"