エラー52:ファイル名または番号が正しくありません

エラー52:不正なファイル名または番号が表示されますユーザーが新しいユーザーアカウントでMicrosoftソフトアクセスデータベースを開こうとすると、古いユーザーアカウントでも同じコンピューターから開くことができます.両方のユーザーが同じアクセス権を持っていますファイル.この問題を解決するにはどうすればよいですか?
windows 10

Microsoft365.

以下の日本語でごめんなさい.

オプション比較データベース

関数copy_kick()
'ExcelはfirstSolarisの有をチェックします.文字列としての薄暗いExpFolder
ExpFolder= Left(Environ( "Windir")、3)&"Local\☆☆☆☆☆☆☆☆_3rd.ldb"
オブジェクトとしての薄暗いFSO
FSO= CreateObject( "Scripting.FileSystemObject")
を設定しますFSO.FolderExists(ExpFolder)=Falseの場合
MkDir(ExpFolder)
Ifを終了
FSO=なしを設定

If Dir(ExpFolder&"\☆☆☆☆☆☆☆☆_3rd.ldb")<>"" Then
'

DoCmd.Echo Fales

'プログラムファイルのコピー
Dim strPassA As String
Dim strPassB As String
strPassA= CurrentDb.Name
strPassB= Left(strPassA、InStrRev(strPassA、 "\")-1)
FileCopy strPassB&"\プログラム\☆☆☆☆☆☆☆☆_Win7.mdb"、ExpFolder&"\☆☆☆☆☆☆☆☆_3rd.ldb"

'ローカルプログラムキック
Dim stAppName As String
stAppName= "Msaccess.exe"&ExpFolder&"\☆☆☆☆☆☆☆☆_3rd.mdb"
Shell(stAppName、1)を呼び出す
DoCmd.Quit

'DoCmd.Echo True

終了機能