リンクテーブルで Seek を使う方法

レコードセットで検索をする場合、FindFirstよりもIndexを使ったSeekを使ったほうが速いとされています。Seekを使うためには、dbOpenTableを指定してレコードセットを開く必要があります。次の手順を参考にしてください。

Set db = DBEngine(0).OpenDatabase("テーブルを保存しているファイル")
  Set rec = db.OpenRecordset("テーブル",dbOpenTable)
  rec.Index = "PrimaryKey"
  ---- 以後はオンラインヘルプを参照 ----