スキルアップ・問題解決なら、モーグにおまかせ！

現在の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