dim SQL as String
dim rs As Recordset
SQL = "SELECT TOP 3 数値フィールド FROM テーブル名 ORDER BY 数値フィールド"
Set rs = CurrentDb.OpenRecordset(SQL)
TOPの後ろの数値を変更すると、抽出する件数を変更できます。
例えば TOP 10 にすると10件のレコードになります。
抽出したいフィールドを必ず、ORDER BYで並べ替えてください。
使用例
国語のワースト5の学生IDと点数を求めています。
SQL = "SELECT TOP 5 学生ID,国語 FROM テーブル6 ORDER BY 国語