= } & doc_current.datefrom(0) & {)} Set collection=db.Search(searchFormula$,Nothing,0) Msgbox collection.Count หมายเหตุ 1. field ที่เกี่ยวข้องมีเพียงอันเดียวครับ คือ doc_current.datefrom(0) 2. Service_Date เป็นชื่อ field ใน frm_appointment">