如何编程创建access数据库并加上密码保护.txt

VB技巧问答10000例 VB技巧问答10000例

可 以 这 样 做 ： 
     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>