List 6-6　IObjectConstruct_Constructプロシージャ

  1： Private Sub IObjectConstruct_Construct(ByVal pCtorObj As Object)
  2：     ' コンストラクタ文字列を取得し，変数g_DBConnectionに代入
  3：     g_DBConnection = pCtorObj.ConstructString()
  4： End Sub