ผมทราบแต่ ถ้าเรคอดซ้ำน่ะครับ จะดึงมาแค่อันเดียว ลองคำสั่ง

dim rst as dao.recordset
dim dbs as dao.database

set dbs = currentdb()
set rst = dbs.openrecordset("select distinct fieldname from tablename where condition")

หมายเหตุ fieldname , tablename ก็คือให้ใส่ ชื่อฟิลชื่อตารางที่คุณต้องการเข้าไป ส่วน condition ถ้ามีเงื่อนไขด้วย ก็ให้ใส่เงื่อนไขนะครับ

ลองดูนะครับ