List 5-6　funcAから戻るまえにDisableCommitメソッドを呼び出す

  1： Public Sub funcA()
  2：     '何らかの処理。この処理はfuncBを呼び出すまえにしなければならないとする。
  3：     Dim objContext As ObjectContext
  4：     Set objContext = GetObjectContext()
  5：     objContext.DisableCommit
  6：     Set objContext = Nothing
  7： End Sub