[MSAccess] ナビゲーション ウィンドウの表示を更新する

VBAでテーブル等を作成した後は、未だナビゲーション ウィンドウに表示されていない。この場合にナビゲーション ウィンドウの表示を更新する方法です。

特定のテーブルを表示する方法
Call DoCmd.SelectObject(ObjectType:=AcObjectType.acTable, ObjectName:="テーブル名", InDatabaseWindow:=True)

ナビゲーション ウィンドウをリフレッシュして、最新の状態を表示する方法
Application.RefreshDatabaseWindow