¿É ÒÔ Õâ Ñù ×ö £º 
     Set wspDefault = DBEngine.Workspaces(0) 
     ' Create new, encrypted database. 
     Set dbs = wspDefault.CreateDatabase("Newdb.mdb", _ 
     dbLangGeneral & ";pwd=NewPassword", dbEncrypt) 
     ' Create new table with two fields. 
     ...... 
    ÓÐ ¹Ø ´´ ½¨ ±í µÄ Óï ¾ä ¿É ÒÔ ²Î ¿¼ CreateDatabaseµÄ °ï Öú ¡£ 
<END>     
    