打开带密码的数据库

[shadowboxing]

请教
我初步学习到数据库
为打开一个带密码的mdb,我写了如下代码:
sub command1_click()
dim ws as workspace '(1)
dim db as database
set ws=dbengine.workspaces(0) '(2)
set db=ws.opendatabase("d:\db1\abc.mdb",,,";pwd=abc123") '(3)
text1.text="open!"
end sub
密码肯定没记错,也区分了大小写,但是运行时,总提示"密码无效",换成独占方式打开还是
说"密码错",但用access打开就可以用这个密码.这是为什么?

在别处请教时,提到了User,但讲的不是很详细
为什么不能打开呢???
谢谢了

[gpo2002]

http://www.csdn.net/expert/topic/538/538289.xml?temp=.2223627

[tony_jian]

Dim db As Database
Set db = OpenDatabase(strfilename, False,False, ";pwd=abc123")

[shadowboxing]

Dim db As Database
Set db = OpenDatabase(strfilename, False,False, ";pwd=abc123")
可以打开了，谢谢

http://www.csdn.net/expert/topic/538/538289.xml?temp=.2223627的讨论也看过了，同样表示感谢

[shadowboxing]

怎么给分?
我还以为是自动的呢???