Dim cnn As New Connection
Dim cat As New Catalog
Dim tbl As Table
cnn.Open "rovider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= c:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind.mdb;"
Set cat.ActiveConnection = cnn
Set tbl = cat.Tables(0)
Debug.Print tbl.Type ' Cache tbl.Type info
cnn.Close
Debug.Print tbl.Type ' tbl is orphaned
' Previous line will succeed if this was cached
Debug.Print tbl.Columns(0).DefinedSize
' Previous line will fail if this info has not been cached