エクセルVBAで開いたアクセスをエクセルが終了しても開いておきたい

エクセルVBAでアクセスを開を、エクセルが終了しても
そのまま開いておきたいのですが、下記ののコードだと閉じてしまいます。
変数の中身がなくなるので閉じてしまうと思うのですが、
エクセルが終了しても、そのまま開いておく方法はありますでしょうか。
どうぞよろしくお願いします。

Dim accApp As Access.Application Set accApp = New Access.Application accApp.OpenCurrentDatabase ActiveWorkbook.Path & "\DB_sample.accdb" accApp.Visible = True