public  a as databaseset a=opendatabase(databasename,false,0,"MS Access;PWD=  "