Option Explicit
Public mcat As ADOX.Catalog
Public mtbl As ADOX.Table
Public mtbls As ADOX.Tables
Public mcol As ADOX.Column
Public mcols As ADOX.Columns
Public mcnn As ADODB.Connection
Private Sub Command1_Click()
Set mcnn = New ADODB.Connection
mcnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "D:\2003.mdb;Persist Security Info=False"
Set mcat = New ADOX.Catalog
Set mcat.ActiveConnection = mcnn
Set mtbls = mcat.Tables
For Each mtbl In mtbls
Debug.Print mtbl.Name
Set mcols = mtbl.Columns
For Each mcol In mcols
Debug.Print mcol.Name
Next
Next