dim SQL as String
Dim rs As Recordset
SQL = "SELECT フィールド名 FROM テーブル名 WHERE フィールド名 Between 値1 And 値2 "
Set rs = CurrentDb.OpenRecordset(SQL)
値1 から 値2 の範囲内にあるレコードを返します。
例： SQL = "SELECT 学生ID FROM 学生名簿 WHERE 体重 Between 80 AND 90 "
この場合、体重が80以上から90以内の学生IDを抽出します。
これを「AND」にすると
SQL = "SELECT 学生ID FROM 学生名簿 WHERE 体重 >= 80 AND 体重 <=90 "
となります。