Sub DateOutput(strTemp As String)
Dim cat As New ADOX.Catalog
Dim tblTemp As ADOX.Table
 
    cat.ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';" & _
        "Data Source='c:\Program Files\" & _
        "Microsoft Office\Office\Samples\Northwind.mdb'
    With cat
        Set tblTemp = .Tables("Employees")
    end with
 
 
    Debug.Print strTemp
    Debug.Print "    Table: " & tblTemp.Name
    Debug.Print "        DateCreated = " & tblTemp.DateCreated
    Debug.Print "        DateModified = " & tblTemp.DateModified
    Debug.Print
End Sub
 
Set cat.ActiveConnection = Nothing
Set cat = Nothing