烟台地图查询:VB如果访问加密的数据库

来源:百度文库 编辑:神马品牌网 时间:2024/04/30 11:01:02
该数据库是ACCESS的,我是这样写的
dim works as workspace
dim db as database
dim rd as recordset
set works=dbengine.workspace(0)
set db=works.open*****("D:\test.mdb")
结果最后一句出错,说密码错误,我不知道密码(123)应该写在哪里?
还有就是如何修改密码?
××××部分太长,我不记得了!^_^

set db=works.OpenDatabase("D:\test.mdb", dbDriverNoPrompt, False, ";PWD=你的密码)