用ACCESS做了一个订货发货管理的东西，其中输入订货单（在自定义的窗体中）时，在“产品型号”栏里面选择一个产品后，则“单价”栏中显示对应的产品单价，功能是我在onafterupdate时间写的一段程序来实现。打开数据库的代码如下：
Dim cnn2 As New ADODB.Connection
Dim connstr
connstr = CurrentProject.Connection
cnn2.Open connstr
没有设置数据库密码的时候一切使用正常，设置了数据库密码后（或者是设置登陆密码后）就出问题了，具体是这样：
“密码无效”，两项供我选择“结束”或者“调试”，按调试发现程序运行到cnn2.Open connstr时候停止。密码肯定是没有错，不然我压根儿进不去，不能做任何操作。
请高人点解！
---------------------------------------------------------------
connstr = CurrentProject.Connection USER='' PWD=''
要是你设了密码的话在引用数据库的时候要给出用户名和密码呀。