mdbの最適化時エラー (ID:83437)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 お世話になります。 DBにmdbを使用したアプリケーションの終了時に mdbの最適化を行いたく、 以下のロジックを組み込んでいます。 Private Sub cmdEND_Click() '---DB Set 機器管理DB = Nothing Set KIKPDB = Nothing Dim dbsNorthwind As Database Dim OldName, NewName OldName = "c:\choketu\機器管理.mdb": NewName = "c:\choketu\機器管理B.mdb" Name OldName As NewName DBEngine.CompactDatabase NewName, OldName Kill NewName '---終了 frmメインメニュー.Hide End End Sub Nameでmdbのリネームの所でパス指定エラーになってしまいます。 パスはあっているのですが、mdbが使用中のために起こるようです。 Set 機器管理DB = Nothing としただけではmdbを解放した事にならないのでしょうか？ リネームできるように解放するにはどうしたらよろしいですか？ よろしくお願い致します。