พอตรวจแล้ว บอกได้คำเดียวว่าโค้ดของคุณผิดเยอะมาก ผิดแทบจะทุกจุด ทั้ง syntax error ทั้งใช้คำสั่งผิด ทั้งกำหนด property และ event ไม่ตรงกับการใช้งาน   คุณใช้โค้ดจากอันอื่นมาแปะรวมๆกันโดยที่ยังไม่เข้าใจว่าโค้ดนั้นทำงานอย่างไร และโค้ดก็อ่านยากครับ

สิ่งหนึ่งที่จะทำให้โค้ดไม่ทำงานหรือทำงานผิดพลาดจากความจริงไปก็คือ มี syntax error ในโค้ด ดังนั้นหลังการแก้ไขโค้ดใดๆแล้ว ควร compile เสียก่อนทำงาน ถ้าคุณลอง compile โค้ดของคุณ คุณจะพบว่ามันมี syntax error เต็มไปหมด ต้องแก้ให้ไม่ error ก่อนครับถึงจะทำงานต่อไปได้ หลังจากนั้นจึงค่อยมาไล่แก้ทีละปัญหาต่อไป

ที่นี้ถ้ามานั่งอธิบายคงใช้เวลาหลายชั่วโมงกว่าจะเขียนอธิบายเสร็จ ผมคงไม่มีเวลาขนาดนั้น คุณลองเอาโค้ดใหม่ไปดู และอ่านข้างล่างว่าแก้ไขส่วนไหนไปบ้าง

สิ่งที่แก้ไข
ในข้อ 1)
- ให้ทำการ comment Private Sub SelectMonthOld_AfterUpdate ทั้ง procedure เพราะไม่ได้ใช้และมี error
- แก้ไข SelectMonthOnTable_AfterUpdate ทั้ง procedure เพราะใช้คำสั่งสับสนไปหมด

ในข้อ 2)
- ให้ลบ "Birth1" ออกจาก OrderBy property ของฟอร์ม แล้วบันทึก แล้วเปิดใหม่ใน design view แล้วป้อน "Birth1" กลับเข้าไปใหม่

ในข้อ 3)
- เปลี่ยนจาก OnChange event ของ ComboProvince มาเป็น AfterUpdate event แทน
- ใน ListDistrict, ListTown และ ListRoad ให้เปลี่ยน ColumnCount property จาก 2 เป็น 1, ColumnWidth ให้ลบทิ้ง, BoundColumn จาก 2 เป็น 1
- แก้ไขโค้ดใน Private Sub ComboProvince_AfterUpdate()
- ใน Function mSearch() แก้ myMSG เป็น Msgbox และลบบรรทัด End Function ที่เกินมา 1 บรรทัด
- ลบ Private Sub ListDistrict_Click()
- แก้ไขโค้ดใน Private Sub ListDistrict_AfterUpdate() และ Private Sub ListTown_AfterUpdate()

ขอบคุณครับ อาจารย์
จะเช็คและแก้ไขตามที่อาจารย์แนะนำมา แล้วค่อยขอคำแนะนำจากอาจารย์อีกครั้ง
ขอบคุณครับ

อ้าว ผมลืมบอกไปว่าผมส่งโปรแกรมกลับไปแล้วนะ คุณไปเช็คดูแล้วกัน

เรียน อ.สันติสุข
ขอบคุณสำหรับความกรุณาหลายๆครั้งที่อาจารย์ส่งมาให้
แอบไปลองทำเองหลายวิธีแล้ว ยังไม่สาำเร็จ สุดท้ายต้องหอบเอาคำถามเดิมมาถามอจารย์อีก
๑. ในฟอร์ม frmBirthdayOnTable เมื่อกดปุ่มเลือกวันที่แล้ว อยากให้เรียงวันที่ Birth1 ด้วย มันยังไม่ออกผล รบกวนอาจารย์ช่วยดูให้ด้วยครับ
๒. ใน Table, บางรหัสสมาชิกเป็นสามี-ภรรยากัน จึงมี record Birth1 Birth2 ผมจะเขียนโค้ดอย่างไร ให้กดปุ่ม btnOpenBirthdayOnTable แล้ว เปิดฟอร์ม frmBirthdayOnTable ให้แสดงทั้ง Birth1 และ Birth2 ออกมา ผมลองเขียน Dim M = Birth1 Birth2 As interger แล้วไปต่อไม่ได้ ขอความกรุณาอาจารย์ด้วยครับ
ผมส่งไฟล์ไปให้อาจารย์ทาง accboard@gmail.com แล้วครับ คราวนี้ ขจัดไฟล์ที่ไม่ต้องการออกไปหมดแล้ว คงไม่ทำให้อาจารย์ปวดหัวเหมือนคราวก่อน
ขอบคุณล่วงหน้าครับ อาจารย์