dim SQL as String
dim rs As Recordset
SQL = "SELECT TOP 3 数値フィールド FROM テーブル名 ORDER BY 数値フィールド DESC"
Set rs = CurrentDb.OpenRecordset(SQL)
抽出したいフィールドを必ず、ORDER BYで降順に並べ替えてください。
その他は、Tips110のワーストと同じです。
使用例
英語のトップテンの学生IDと点数を求めています。
SQL = "SELECT TOP 10 学生ID,英語 FROM テーブル得点 ORDER BY 英語 DESC