List 6-7　ObjectControlインタフェースに備わるメソッドの実装

  1： Private Sub ObjectControl_Activate()
  2：     ' アクティブ化されたときにg_DBConnection変数が
  3：     ' 初期化されていなければデフォルトの値を設定する
  4：     If g_DBConnection = "" Then
  5：         g_DBConnection = "Driver=SQL Server;Server=(local);" & _
   　                          "UID=sa;Database=businesssampleDB;"
  6：     End If
  7： End Sub
  8： 
  9： Private Sub ObjectControl_Deactivate()
 10：     ' 非アクティブ化されたときの処理（ここでは何もしない）
 11： End Sub
 12： 
 13： Private Function ObjectControl_CanBePooled() As Boolean
 14：     ' オブジェクトのプーリングの設定（VisualBasicの場合には無意味）
 15：     ObjectControl_CanBePooled = True
 16： End Function