<%
DbPath = "../MS Access DB/db1.mdb"
Set objAccess = Server.CreateObject("Access.Application")
objAccess.Visible = False
objAccess.OpenCurrentDatabase Server.MapPath(DbPath)
Set objDB = objAccess.CurrentDb()

macroName = "Macro1"

objAccess.DoCmd****nMacro macroName


set objDB = nothing
objAccess.Quit acQuitSaveNone
Set objAccess = Nothing

Response.Write "Your macro has been run!"
%>


There is error message:
Error Type:
(0x800A1EBA)
/asp_db1/runmacro.asp, line 7
this line code has error
objAccess.OpenCurrentDatabase Server.MapPath(DbPath)


What's wrong with it?
Thanks.

Do you have permissions to read the file?
I found an older thread