List 6-1　新規顧客を登録するためのAddCustomerメソッド

  1： Function AddCustomer(ByVal NAME As String, ByVal YOMIGANA As String, _
   　                      ByVal ZIP As String, ByVal ADDRESS As String, _
   　                      ByVal TELEPHONE As String, ByVal FAX As String, _
   　                      ByVal MEMO As String) As Long
  2： ' 新規の顧客を登録する
  3： ' NAME=顧客名，YOMIGANA=よみがな，ZIP=郵便番号，ADDRESS=住所
  4： ' TELEPHONE=電話番号，FAX=FAX番号，MEMO=摘要
  5： ' とする
  6： ' そして，登録した顧客の顧客番号を戻り値として返すものとする
  7： End Function