Visual Basic 6 中DAO数据库编程

[jingxuanhuang]

我在学习Visual Basic 6 中DAO数据库编程时遇到了这样的问题
我用Access做了个简单的数据库，并设置了密码。密码为“22”在VB中引用了 Microsoft DAO 3.60 Object Library后，在模块文件中声明：
Option Explicit
Public DB As Database
Public RE As Recordset
以下是窗体的代码：
Private Sub Form_Load()
Set DB = OpenDatabase("e:\db1.mdb", flase, flase, "")
DB.Connect = ":PWD= 22"
End Sub
运行的时候出现密码错误的信息提示我在www.applevb.com中看到用data控件打开数据库也是 用data1.connect=";pwd=密码"来通过验证，为什么换了用DAO 的就不行？请问用DAO方法怎么样才能通过验证？
后来我又在Database中第四个属性设置了数据库的密码
set opendatabase(app.path & "\school.mdb" , false, false, "密码=22")
数据库school.mdb的密码是“22”，现在没有提示密码错误，但是出现了“OBDC——连接到'school.mdb'失败”
这样的提示，到这里卡壳了，请您援手！

[freetide]

1.升到sp5
2.data控件， 有问题， 可以打开access97, 直接打开access2000不行，
解决方法见msdn

[iwzw]

Private Sub Form_Load()
Set DB = OpenDatabase("e:\db1.mdb", flase, flase, ";pwd=22")
End Sub
应没有问题

[gpo2002]

=================================================================
Dim temdb As Database
Set temdb = DBEngine.Workspaces(0).OpenDatabase(strfilename, False, False, ";pwd=22")
==================================================================
给分。

[jingxuanhuang]

按你所说的办法得出了“对象变量或with块变量未设置”。
怎么办？

[iwzw]

看到你发的消息：你改成
Set DB = opendatabase(App.Path & "\school.mdb", False, False, ";pwd=22")试一试。

[gpo2002]

dao引用了??

[40Star]

你的Access不会是2000吧！
DAO无法直接连接2000
可以连接97
通过ODBC不用连接字符串可以连接Access2000

[jingxuanhuang]

都按你们几位建议回去统统试过了还是不行？

引用了DAO 3.6 Object Library
声明了数据库变量
Access数据库没有设置密码的时候是可以正常连接，操作。
就是连不到有密码的Access数据库？！仍然是提示：
“OBDC——连接到'school.mdb'失败”
听人说要设置ODBC数据源？我不知道怎样做？

[dbcontrols]

工程--引用--Microsoft DAO 3.51 Object Library

Dim temdb As Database
Set temdb = DBEngine.Workspaces(0).OpenDatabase(strfilename, False, False, ";pwd=22")

[jingxuanhuang]

工程--引用--Microsoft DAO 3.51 Object Library后
现在没有出现“OBDC——连接到'school.mdb'失败”的提示了
谢谢各位对本人问题的重视！希望在网络这个开放的环境每个人
都可以互相学习，共同解决问题。
再次感谢各位！

[michaelpeng7799]

你应该用ADO，MS以后会越来越少的支持DAO了．