データベースのテーブルより特定の条件でレコードを抽出する場合はFilterメソッドを使用します。
レコードセット変数.Filter = 抽出条件
以下の例では名簿テーブルよりOpenメソッドによりレコードセットを作成して、Filterメソッドで姓が"鈴木"であるレコードを抽出して全て表示し、Closeメソッドで閉じています。
Sub Sample()
Dim rs As New ADODB.Recordset
rs.Open "名簿", CurrentProject.Connection
rs.Filter = "姓='鈴木'"
Do Until rs.EOF
Debug.Print rs!姓 & rs!名
rs.MoveNext
Loop
rs.Close
End Sub
ADOとは | レコードセットの作成(Open) | レコードセットの読み取り(Move) | レコードの検索(Find) | レコードの更新(Update) | レコードの追加(AddNew) | レコードの削除(Delete) | レコードの抽出 | レコードの並び替え(Sort) | SQL文の実行