現在のAccessデータベースのプロパティを参照する場合は、
CurrentDbオブジェクトのPropertiesコレクションを参照することで可能です。
さらに、PropertiesコレクションのCountプロパティを参照すると、格納されて
いるPropertieオブジェクトの数がわかり、各Propertieオブジェクトの
Nameプロパティを参照すると、プロパティの項目名を取得することができます。

以下は、カレントなAccessデータベースの各プロパティの名前を取得するサンプル
です。

● サンプル　●

Sub ListPropName()
    Dim cItem   As String
    Dim nI      As Integer
    
    For nI = 0 To CurrentDb.Properties.Count - 1 Step 1
        cItem = CurrentDb.Properties(nI).Name
        Debug.Print cItem
    Next nI

End Sub