List 5-13　dbsample.vbs

  1： Set objOrder = CreateObject("dbsamplecom.order")
  2： objOrder.acceptOrder 2, "Fumitaka Osawa", 10
  3： Set objOrder = Nothing