另一种方法是在运行时，通过代码动态地设置connectionstring、commandtype和recordsource属性来创建连接。 只要在connectionstring属性的有效连接字符串后增加上”; jet oledb: database password=1234”即可。
2、使用数据对象
① dao数据对象
要能正确引用dao数据对象来建立与数据库的连接，应先在vb集成开发环境中选择“工程”菜单，再点击“引用”菜单项，在弹出的“引用”对话框选择“microsoft dao 3.51 object library”选项来添加dao数据对象类型库。
接下来就可用如下代码来建立到加密的access数据库ssgl.mdb的连接。
dim db as database
set db=opendatabase(app.path + “\ssgl.mdb” , false , false , ” ; pwd=1234”)
② ado数据对象
