怎么用VB连接到有密码的ACCESS数据库？

1. 如果有链接字符串,则更改链接字符串:Data Source=path\abc.mdbJet OLEDB:Database password=12342. 如果是Data控件,需要设置Data的connect和DatabaseName属性.Data1.connect=”pwd=1234”Data1.DatabaseName=APP.path + “\ssgl.mdb” 3.Adodc控件Adodc控件是一个ActiveX控件，它使用Microsoft ActiveX Data Objects(ADO)创建到数据库的连接。使用Adodc控件之前，要先将Adodc控件添加到控件工具箱中。方法如下：在VB 6.0种选择“工程”菜单，再点击“部件”菜单项，在d出的“部件”对话框中选中“Microsoft ADO Data Control 6.0(OLEDB)”选项即可。通过Adodc控件连接加密的数据库的方法也有两种：一种方法是在设计状态时，在“属性窗口”中，对Adodc控件的ConnectionString属性设置一个有效的连接字符串，并在连接字符串后增加上”Jet OLEDB: DataBase password=1234”，再设置Adodc控件的CommandType、RecordSource的属性就可以创建到加密的数据库的连接了。另一种方法是在运行时，通过代码动态地设置ConnectionString、CommandType和RecordSource属性来创建连接。 只要在ConnectionString属性的有效连接字符串后增加上”Jet OLEDB: DataBase password=1234”即可。引用自下面的链接,我测试过了,没问题,有问题要多摆渡.... http://hi.baidu.com/windloverainspace/blog/item/50171d456b45f923cefca3a2.html

constr

=

"provider=microsoft.jet.oledb.4.0"datasource

=

"d:\access2003\access2003\db1.mdb"这2行不能分开写，不然你的constr中找不到数据库。。。改为：constr

=

"provider=microsoft.jet.oledb.4.0datasource

=

d:\access2003\access2003\db1.mdb"

---