Private Sub MDIForm_Load()
frmViewList.Show
Set dbBooks = OpenDatabase("D:\vb\我正在做的系统\database\db2.mdb")
frmViewList.display dbBooks, Me, "publishers"
End Sub
上面红色的代码出 问题
byref参数类型不符
是什么原因？
在线等

OpenRecordset 呢?

新学的，不知道意思
Set dbBooks = OpenDatabase("D:\vb\我正在做的系统\database\db2.mdb")
OpenRecordset 要这个有什么作用

OpenDatabase 只是打开连接数据库
OpenRecordset 才是打开一个记录集

Private Sub MDIForm_Load()
frmViewList.Show
Set dbBooks = OpenDatabase("D:\vb\我正在做的系统\database\db2.mdb")
set dbBooks = OpenRecordset("D:\vb\我正在做的系统\database\db2.mdb")
frmViewList.display dbBooks, Me, "publishers"
End Sub
可以加这么 一条语句吗？

估计不是的……

dim dbBooks as database
dim dbrst as recordset
Set dbBooks = OpenDatabase("D:\vb\我正在做的系统\database\db2.mdb")
set dbrst =dbBooks .OpenRecordset("你的表名", dbOpenTable)



或者
dim dbBooks as database
dim dbrst as recordset
dim sqlstr as string
sqlstr="select * from 你的表 where 条件"
Set dbBooks = OpenDatabase("D:\vb\我正在做的系统\database\db2.mdb")
set dbrst =dbBooks .OpenRecordset(sqlstr)

如何使用 OpenDatabase 方法来在 Access 2000 打开密码保护数据库

本文仅应用于 MicrosoftAccess 数据库 (.mdb)。

概要本文介绍如何使用 OpenDatabase 方法来打开 MicrosoftAccess 数据库具有数据库密码。 注意这是不同于打开数据库保护与 Microsoft Access 用户级安全功能。 如果要使用 OpenDatabase 方法来打开密码保护数据库, 作为 Connect 参数指定数据库密码。 语法使用 OpenDatabase 方法来打开数据库是如下：
注意 ： 即使 OpenDatabase 方法的 选项 和 只读 参数是可选参数, 帮助中介绍使用 Connect 参数时必须提供它们。 如果使用 Connect 参数并且不提供 选项 和 只读 参数, 收到 3031 运行时错误：
即使与 Connect 参数中提供密码是正确收到此错误信息。 如果执行不需要使用 Connect 参数, 您可以省略 选项 和 只读 参数。

当您使用 OpenDatabase 方法来打开密码保护 Access 数据库, 了 OpenDatabase 方法 Connect 参数需要以下语法：
要使用 OpenDatabase 方法来打开示例数据库 Northwind.mdb （保护了数据库密码为 " northwind "), 请按照下列步骤：

注意 ： 本文示例代码使用 Microsoft 数据访问对象。 为此代码才能正常运行, 您必须引用 Microsoft DAO 3.6 对象库。 可以进行, 单击 工具 菜单中 VisualBasic 编辑器, 上 引用 并确保选中 Microsoft DAO 3.6 对象库 复选框。

警告 ： 如果您执行此示例, 中步骤您修改示例数据库 Northwind.mdb。 可能需要备份 Northwind.mdb 文件和数据库的副本上执行这些步骤。

1.	启动 MicrosoftAccess 并打开示例数据库 Northwind.mdb 以独占访问。 可以进行, 单击 文件 菜单上 打开数据库 ， 单击要显示选项, 打开 按钮上箭头依次 独占打开 。
2.	在 工具 菜单, 指向 安全 , 然后单击 设置数据库密码 。
3.	类型 northwind 在 密码 和 确认 中。
4.	单击 确定 以关闭 设置数据库密码 对话框。
5.	关闭数据库。
6.	创建新的空数据库。
7.	创建模块并键入以下过程： 注意 ： Substitute 正确路径， Northwind.mdb 硬盘上如下示例代码中。 Sub OpenDB() Dim db As DAO.Database Dim ws As DAO.WorkSpace Dim rst As DAO.Recordset Set ws = DBEngine.WorkSpaces(0) Set db = ws.OpenDatabase _ ("C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb", _ False, False, "MS Access;PWD=northwind") Set rst = db.OpenRecordset("Customers", dbOpenDynaset) If rst.RecordCount > 0 Then rst.MoveLast MsgBox rst!CustomerID End If rst.Close db.Close End Sub
8.	要测试此过程, 在调试窗口, 键入以下行， 然后按 ENTER 键： OpenDB 请注意， 一个消息框显示 Customers 表, 指示数据库已成功打开中的最后记录客户 ID。

[此贴子已经被作者于2007-11-14 21:20:19编辑过]

辛苦了 simpson 谢谢你给了我多信息

刚 那段搞定了
可是 又有 一段代码出了 问题
Private Sub MDIForm_Load()
frmViewList.Show
Dim dbBooks As Database
Dim dbrst As Recordset
Set dbBooks = OpenDatabase("D:\vb\我正在做的系统\database\db2.mdb")
Set dbrst = dbBooks.OpenRecordset("publishers", dbOpenTable)
frmViewList.display dbBooks, Me, "publishers"
End Sub
说是不可识别的
是不是我的路径不对
要不要一定要是C盘目录下