Setting the ActiveConnection property to Nothing should close the connection to the catalog. Associated collections will be empty. Any objects that were created from schema objects in the catalog will be orphaned. Any properties on those objects that have been cached will still be available, but an attempt to read properties that requires a call to the provider will fail.
' BeginCloseConnectionVB Sub Main() On Error GoTo CloseConnectionByNothingError Dim cnn As New ADODB.Connection Dim cat As New ADOX.Catalog Dim tbl As ADOX.Table cnn.Open "Provider='Microsoft.Jet.OLEDB.4.0';" & _ "Data Source= 'Northwind.mdb';" Set cat.ActiveConnection = cnn Set tbl = cat.Tables(0) Debug.Print tbl.Type ' Cache tbl.Type info Set cat.ActiveConnection = Nothing Debug.Print tbl.Type ' tbl is orphaned ' Previous line will succeed if this info was cached. Debug.Print tbl.Columns(0).DefinedSize ' Previous line will fail if this info has not been cached. 'Clean up. cnn.Close Set cat = Nothing Set cnn = Nothing Exit Sub CloseConnectionByNothingError: Set cat = Nothing If Not cnn Is Nothing Then If cnn.State = adStateOpen Then cnn.Close End If Set cnn = Nothing If Err <> 0 Then MsgBox Err.Source & "-->" & Err.Description, , "Error" End If End Sub ' EndCloseConnectionVB
Closing a Connection object that was used to open the catalog should have the same effect as setting the ActiveConnection property to Nothing.
Attribute VB_Name = "Connection"