ลองใช้ฟังก์ชันนี้ดูครับ

Function MyCount(strTable As String, strField As String) As Long
Dim dbs As Object, strSQL As String, rst As Object
strSQL = "SELECT [" & strField & "] FROM [" & strTable & "] GROUP BY [" & strField & "]"
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(strSQL)
MyCount = rst.RecordCount
rst.Close
dbs.Close
Set rst = Nothing
Set dbs = Nothing
End Function

ถ้ามี northwind.mdb ก็ลองใส่แบบนี้ดู

? MyCount("Order Details","OrderID")
830

ปล. ตัวแปรแรกคือ ชื่อตาราง ตัวแปรที่ 2 คือชื่อฟีลด์ที่ซ้ำกันที่ต้องการนับครับ

ถ้าผมจะให้หาข้อมูลจากคิวรี่ต้องเปลี่ยนอย่างไรครับ เพราะผมลองจากโค๊ดดังกล่าวแล้วเกิด Run-time error '3061':
Too few parameters. Expected 1 ที่
Set rst=dbs.OpenRecordset (strSQL)
ขอบคุณมากครับสำหรับคำตอบดีๆ

1.สาเหตุที่เกิด Run-time error เพราะคุณไม่ที่การเพิ่ม References ของ Recordset เข้าไป
2. ถ้าใช้ Qry คุณจะต้อง Group ก่อน แล้วค่อยนับจำนวน Rec.