dim SQL as String
dim rs As Recordset
SQL = " SELECT FIRST(フィールド名) AS 名前 FROM テーブル名 "
SQL = " SELECT LAST(フィールド名) AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)
FIRST関数は先頭のレコードを返します。
LAST関数は末尾のレコードを返します。
Access固有の関数です。
しかし、テストすると正確な値が返りません。
下記のテーブルの場合（IDはオートナンバー型です）
---------------------
ID testname 数量
---------------------
110503 a0 100
110504 a1 200
110505 a2 300
110506 a3 400
110511 a4 50
110512 a5 10
110513 a6 60
---------------------
FIRST関数では50が返りました。
LAST関数は400が返りました。