Dim cat As New ADOX.catalog
Dim tblname() As String
Dim fieldname() As String
Dim i As Integer
Dim j As Integer
cat.activeconnection = ""
ReDim tblname(cat.Tables.Count) As String
For i = 0 To cat.Tables.Count - 1
tblname(i) = cat.Tables(i).Name
ReDim fieldname(cat.Tables.Count, cat.Tables(i).Columns.Count)
For j = 0 To cat.Tables(i).Columns.Count - 1
fieldname(i, j) = cat.Tables(i).Columns(j).Name
Next
Next