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

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