データベースのテーブルより特定の条件でレコードを抽出する場合は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.MoveNext

	Loop

	rs.Close

End Sub