Option Compare Database Option Explicit Sub Library_Name() MsgBox "Library_Name" End Sub6.在 文件 菜单上, 单击 保存 DatabaseName1 。7.在 保存 对话框中, 选择 Module:Module1 , 保存对以下对象 下, 然后单击 是 。8.在 存 对话框中, 单击 确定 。9.在 文件 菜单上, 单击 关闭并返回到 Microsoft Office Access 。10.Microsoft Office 按钮 , 依次 关闭数据库 。11.Microsoft Office 按钮 , 依次 新建 。12.然后单击 创建 , 在 文件名 框中, 键入 DatabaseName 和 空白数据库 。13.Microsoft Office 按钮 , 依次 关闭数据库 。14.Microsoft Office 按钮 , 依次 打开 。15.在 打开 对话框中, 选择 DatabaseName , 然后单击 打开 。16.在 安全警报 对话框中, 单击 启用内容 。17.在 Office 中信任 对话框中, 单击以选择 启用此内容 , 并单击 确定 。 18.在 数据库工具 菜单上, 单击 VisualBasic 。19.在立即窗口, 键入以下命令:
x=9 Print x注意输出是 9。20.在 工具 菜单上, 单击 引用 。21.在 引用 - DatabaseName 对话框中, 单击 浏览 。22.添加引用 对话框中, 单击 Microsoft Office Access 数据库 (*.accdb) Filesoftype 类型 列表中 打开 选择 DatabaseName1 , 依次、。23.单击 确定 以关闭 引用 - DatabaseName 对话框中。24.在项目 - DatabaseName(DatabaseName) 窗口, 单击 DatabaseName , 并在立即窗口然后键入以下命令:
x=9 Print x注意输出是空白。25.在 工具 菜单上, 单击 引用 。26.引用 - DatabaseName 对话框, 中单击以清除 DatabaseName1 , 并单击 " 确定 " 。27.在立即窗口, 键入下列命令:
x=9 Print x注意输出是 9。