List 7-64　FormProductフォームのRefreshDataプロシージャ

---

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