List 6-39　List 6-38の呼び出し例

  1： Dim rows As Long, i As Long
  2： Dim CUSTOMERNAME As Collection, TELEPHONE As Collection, FAX As Collection
　3： 
  4： ' GetCustomers2メソッドの呼び出し
  5： rows = GetCustomers2(CUSTOMERNAME, TELEPHONE, FAX)
  6： ' それぞれの行を取得
  7： For i = 1 To rows
  8：     MsgBox "顧客名=" & CUSTOMERNAME.Item(i) & _
   　            "電話番号=" & TELEPHONE.Item(i) & _
   　            "FAX番号=" & FAX.Item(i)
  9： Next
 10：    
 11： ' 取得したデータを破棄
 12： Set CUSTOMERNAME = Nothing
 13： Set TELEPHONE = Nothing
 14： Set FAX = Nothing