access2010 データマクロの存在確認

コードで存在を確認するすべがないかな？と思ったらあった。

Sub FuncDataMacro()
    Dim cn As ADODB.Connection, rs As New ADODB.Recordset
    
    Set cn = CurrentProject.Connection
    
    rs.CursorLocation = adUseClient
    rs.Open "select LvExtra from MSysObjects where Name='テーブル1'", cn
    
    Debug.Print rs(0)
    
    rs.Close: Set rs = Nothing
    Set cn = Nothing
End Sub

ここでデータマクロ編集するつもりはないけど。