List 7-15　FormCustomerフォームのBTN_REFRESH_Clickプロシージャ（Findメソッドを利用する例）

---

  1： Private Sub BTN_REFRESH_Click()
  2：     ' ［最新の状態に更新］ボタンが押されたときの処理
  3：     Dim CustomerID As Long
  4：     
  5：     On Error Resume Next
  6：     
  7：     ' 現在のIDフィールドの値を取得
  8：     CustomerID = g_objRec.Fields("ID").Value
  9：     
 10：     ' 最新の情報に更新
 11：     RefreshData
 12：     
 13：     ' 保存しておいたIDフィールドの値を持つレコードをカレント行とする
 14：     g_objRec.MoveFirst
 15：     g_objRec.Find "ID=" & CustomerID, 0, adSearchForward
 16：     
 17： End Sub