スタンドアロン テーブルにアクセスする方法

Public Sub Access2StandaloneTable()
    Dim pMxDocument As IMxDocument
    Set pMxDocument = ThisDocument
    
    Dim pStandaloneTableCollection As IStandaloneTableCollection
    Set pStandaloneTableCollection = pMxDocument.FocusMap
    
    Dim pStandaloneTable As IStandaloneTable
    Set pStandaloneTable = pStandaloneTableCollection.StandaloneTable(0)

    Dim pTable As ITable
    Set pTable = pStandaloneTable.Table
End Sub