rem http://www.accessmvp.com/jconrad/accessjunkie/macrosecurity.html
rem expression.OpenCurrentDatabase(filepath required, Exclusive optional, bstrPassword optional)
dim o
 set o=createobject ("Access.Application")
 o.automationsecurity=1 ' set macro security LOW.
 o.opencurrentdatabase "C:\jj\Seq.mdb"
 o.usercontrol=true
 set o=nothing
