GetObject() 和 CreateObject() 函数允许从 Automation 控制器应用程序中打开或激活 Microsoft Access 的实例并控制其功能。在 Visual Basic 模块中使用这些函数时，激活 Microsoft Access 作为 Automation 对象，然后将对象指定给变量。例如，下面是使用 GetObject() 和 CreateObject() 函数的几种方法。
方法 1

通过以下语法，可以使用 GetObject() 函数激活或打开 Microsoft Access 实例和指定的数据库。 Dim objAccess as Object
Set objAccess = GetObject("C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb")
请注意，在代码运行时，根据以下不同条件，objAccess 变量可以引用不同的 Microsoft Access 实例：

如果指定的数据库 (Northwind.mdb)是在一个 Microsoft Access 实例中打开的，则 objAccess 引用打开的实例。
如果指定的数据库是在多个 Microsoft Access 实例中打开的，则 objAccess 随机引用其中的某个实例。
如果运行代码时 Microsoft Access 没有运行，则打开新建实例，并且 objAccess 引用该实例。
方法 2

通过下面的语法，可以使用 GetObject() 函数激活 Microsoft Access 实例： Dim objAccess as Object
Set objAccess = GetObject(,"Access.Application")
请注意，在代码运行时，根据以下不同条件，objAccess 变量可以引用不同的 Microsoft Access 实例：

如果代码运行时 Microsoft Access 实例正在运行，则 objAccess 引用打开的实例。
如果多个 Microsoft Access 实例正在运行，则 objAccess 随机引用其中的某个实例。
如果代码运行时 Microsoft Access 没有运行，则产生错误。
方法 3

通过以下语法，可以使用 CreateObject() 函数打开新的 Microsoft Access 实例： Dim objAccess as Object
Set objAccess = CreateObject("Access.Application")
objAccess 变量引用新实例的 Application 对象。

备注：作为一种替代方法，某些 Automation 控制器（如 Microsoft Visual Basic 4.0）支持使用关键字“New”来打开 Automation 服务器的新实例，例如： Dim objAccess as New Access.Application
请参阅 Automation 控制器文档确定 Automation 控制器是否支持使用“New”关键字。
了解 UserControl 和 Visible 属性