変更後のVBA(下の方)のDim strSQL行の最後に select * from を加筆し、
Dim strSQL As String: strSQL = "insert into T_UserLog (場所,行為,ユーザー名,マシン名) values ('" _
& PN & "','" & AN & "','" & WSH.UserName & "','" & WSH.ComputerName & "') select * from "
CurrentDb.Execute strSQL & "T_UserLog IN '' [MS Access; DATABASE=C:\略\MnfctMng_BEDB.accdb;PWD=PASSWORD;];"""
と書き直した所、CurrentDb.Execute行に 最後の;が足りないエラーが出てしまいました。
strSQLの内容がまずい気がするんですが、いかがでしょうか…。
通報 ...