Sub GetFields()

    Dim con As ADODB.Connection

    Dim adoxCat As New ADOX.Catalog

    Dim adoxTable As ADOX.Table

    Dim adoxTableColumns As ADOX.Columns

    Dim i As Integer

    Dim l As Integer

    Set con = Application.CurrentProject.Connection

    Set adoxCat.ActiveConnection = con

    Set adoxTable = adoxCat.Tables("dummy")

    Set adoxTableColumns = adoxTable.Columns

    l = adoxTableColumns.Count

    For i = 0 To l - 1

        Debug.Print adoxTableColumns(i).Name

    Next i

End Sub

Не забудь подключить в References Microsoft ActiveX Data Objects 2.8 Library и Microsoft ADO Ext. 2.8 for DDL and Security.
Ещё несколько ссылок:
http://www.c-gator.ru/articles/adox-mdb-csharp/
http://hiprog.com/index.php?option=com_content&task=view&id=251661555&Itemid=35
http://msdn2.microsoft.com/en-us/library/aa704826.aspx
http://msdn2.microsoft.com/en-us/library/ms681520.aspx
http://www.codeproject.com/books/186100558x_16.asp