โจทก์นี้ยากจัง
ผมลองคิดๆ เขียนโฟลว์ก่อนก็แล้วกันครับ ถ้าไม่เจอตัวต้องการ เราต้องหาก่อนว่า รายการใดใกล้เคียงที่สุด ซึ่งแนวคิดดังกล่าวตั้งอยู่บนข้อสมมติฐานหลัก ชื่อรายการเป็นอักษรเดี่ยวภาษาอังกฤษ

- ประกาศตัวแปรเตรียมเก็บค่ารายการ

1) ค้นหา H ในรายการ ถ้าเจอ ให้เอา H ป้อนเข้าตัวแปร แล้วให้ข้ามไปข้อ 3)
2) - H คืออักษรชึ่งมีค่าลำดับในรหัสแอสกีที่ 72

- วนลูปดังนี้
for i =1 to 26
ให้ค้นหาว่า ในรายการต่าง มีอักษรที่มีรหัสแอสกีนี้หรือไม่ 72-i หรือไม่
เช่น dcount( ......chr(72-i)......) >0
ถ้ามีให้ เก็บค่าตัวอักษร chr(72-i) เข้าตัวแปร, ออกจากลูปและกระโดดไปข้อ 3)

ให้ค้นหาในทางกลับกันอีกครั้ง 72+i
ถ้ามีให้ เก็บค่าตัวอักษร chr(72+i) เข้าตัวแปร, ออกจากลูปแล้วกระโดดไปข้อ 3)
next

3) สั่งฟอร์มให้ค้นหารายการ ตามค่าตัวแปรที่หาได้
เช่น me.recordsetclone.findfirst "field = '" & ค่าตัวแปร & "'"

Dim rs as DAO.Recordset

set rs = me.recordsetclone
rs.FindLast "field <= H"
if rs.nomatch then
   rs.FindFirst "field > H"
   if rs.nomatch then
      exit sub (หรือ exit function)
   end if
end if
me.bookmark = rs.bookmark

ทั้งนี้ทั้งนั้นข้อมูลบนหน้าจอต้องเรียงจากน้อยไปมากอยู่แล้วนะครับ ไม่เช่นนั้นอาจไม่ได้ผลตามที่ต้องการ