โค้ดส่วนนี้คงจะตัดมาจากโค้ดที่ใช้กับ OnNotInList ของ Combo Box

With dbs = อ้างถึงตัวแปรที่กำหนดให้เป็นฐานข้อมูล
Set rst = .OpenRecordset("tblPlace") = เปิดตาราง tblPlace
rst.AddNew = เปิดเพื่อเพิ่มข้อมูล
rst!PlaceName = NewData = ใส่ค่าที่ส่งมาจาก Combo box แล้วเขียนลงในฟีลด์ชื่อ PlaceName
rst.Update = บันทึกข้อมูล
rst.Close = ปิดการเปิดตาราง
.Close = ปิดการเปิดฐานข้อมูล
End With = จบ With ที่ใช้กับบันทึกแรก

ขอบคุณมากครับ

ขอบคุณ อ.สุภาพ อีกครั้งสำหรับความหมายของโค็ดข้างต้น และผมได้ลองประยุกต์ใช้แล้ว แต่ติดปัญหาที่ยัง error อยู่ครับ ไม่รู้ว่าจะแก้ไขยังไง และมีข้อความขึ้นดังนี้
Run-time error '3058':
Index or primary key can't a null value.
โดยที่จะมี
และโค็ดที่ผมแก้ไขเป็นแบบนี้ครับ
With dbs
Set rst = .OpenRecordset("Customers")
rst.AddNew
rst!CompanyName = NewData
rst.Update (มี error ที่นี่ครับ)
rst.CLOSE
.CLOSE
End With

แสดงว่าตาราง Customers จะมีอีกฟีลด์หนึ่งซึ่งกำหนดให้เป็น Primary Key

ตรวจดูว่าเป็นฟีลด์ประเภทไหน แล้วเพิ่มโค้ดให้ถูกต้องด้วยครับ