I was searching the forum for an answer to this problem, and erreric's post worked for me, but only after I removed appAccess. from:
Set db = appAccess.DBEngine.OpenDatabase(strPath & strAccessFile, False, False, "MS Access;pwd=" & password)
Randy