将 ActiveConnection 属性设置为有效的、打开的连接即可“打开”目录。通过打开的目录，可以访问包含在该目录中的模式对象。
Sub OpenConnection()
Dim cnn As New ADODB.Connection
Dim cat As New ADOX.Catalog
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= c:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind.mdb;"
Set cat.ActiveConnection = cnn
Debug.Print cat.Tables(0).Type
End Sub
将 ActiveConnection 属性设置为有效连接字符串也可以“打开”目录。
Sub OpenConnectionWithString()
Dim cat As New ADOX.Catalog
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind.mdb;"
Debug.Print cat.Tables(0).Type
End Sub