List 7-19　修正したFormCustomerフォームのRefreshDataプロシージャ（修正個所は赤色で示した）

  1： Private Sub RefreshData()
  2：     ' データグリッドに表示されているデータを最新の情報にする
  3：     Dim objCustomer As Business.Customer
  4：     
  5：     ' データベースに接続して，最新の情報を取得し，
  6：     ' データグリッドに表示する
  7：     On Error GoTo ErrHandle
  8：     
  9：     Set objCustomer = CreateObject("Business.Customer")
 10：     Set g_objRec = objCustomer.GetCustomers()
 11：     
 12：     Set DGrid_Customer.DataSource = g_objRec
 13：     g_objRec.Sort = g_Order
 14：     
 15：     DGrid_Customer.Refresh
 16：     
 17：     Set objCustomer = Nothing
 18：     
 19：     Exit Sub
 20： 
 21： ErrHandle:
 22：     ' ビジネスオブジェクトの呼び出しに失敗
 23：     MsgBox Err.Description, vbOKOnly, "サーバーとの接続に失敗"
 24：     Set objCustomer = Nothing
 25：     Set g_objRec = Nothing
 26： End Sub