List 6-44　List 6-43の呼び出し例

  1： Dim objRec As ADODB.Recordset
  2： Dim mesgs As String
  3：     
  4： Set objRec = GetCustomers4
  5：     
  6： While Not objRec.EOF
  7：     mesgs = "顧客名=" & objRec.Fields("NAME")
  8：     mesgs = mesgs & "電話番号=" & objRec.Fields("TELEPHONE")
  9：     mesgs = mesgs & "FAX番号=" & objRec.Fields("FAX")
 10：     MsgBox mesgs
 11：     objRec.MoveNext
 12： Wend
 13：     
 14： ' 取得したレコードセットを閉じてから解放
 15： objRec.Close
 16： Set objRec = Nothing