Sub AccessExample()
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Provider = "Microsoft.Jet.OLEDB.4.0;"
cn.ConnectionString = "Data Source=C:\mydb.mdb"
cn.Open
Debug.Print "Full connection string: " & cn.ConnectionString
Set rs = cn.OpenSchema(adSchemaTables)
Do While Not rs.EOF
Debug.Print rs!TABLE_NAME & " Type: " & rs!TABLE_TYPE
rs.MoveNext
Loop
rs.Close
cn.Close
End Sub