VBA何如得到Access所有数据表名及所有字符段

Public Function ABC()
'要引用 ACCESS  LIBRARY
    Dim Acc As Access.Application
    Dim AccPath As String
    Dim i As Integer
    Dim j As Integer
    AccPath = "D:\管理.mdb"'ACCESS文件的完整地址你要重新调整一下
    Set Acc = New Access.Application
    Acc.Visible = False
    Acc.OpenCurrentDatabase AccPath
    For i = 0 To Acc.Application.CurrentDb.TableDefs.Count - 1
        If Not LCase(Acc.Application.CurrentDb.TableDefs(i).Name) Like "msys*" Then
            MsgBox "表名称： " & Acc.Application.CurrentDb.TableDefs(i).Name   '表名称
            For j = 0 To Acc.Application.CurrentDb.TableDefs(i).Fields.Count - 1
                MsgBox "字段名称： " & Acc.Application.CurrentDb.TableDefs(i).Fields(j).Name    '字段名称
            Next j
        End If
    Next i
    Acc.Quit acQuitSaveNone
    Set Acc = Nothing
End Function