ฟอร์มนี้เป็น unbound ใช่มั๊ยครับ ลองดูโค้ดนี้ครับ Dim dbs As Database, rst As Recordset Dim I as Integer Set dbs = CurrentDb Set rst = dbs.OpenRecordset("Select ProductID From ชื่อตารางเป้าหมาย") If Not rst.EOF Then rst.MoveLast rst.MoveFirst For I = 1 To rst.RecordCount Me("Pro" & I) = rst(0) rst.MoveNext Next I End If rst.Close dbs.Close Set rst = Nothing Set dbs = Nothing End Sub ต้องมั่นใจว่าจำนวนข้อมูลจะไม่มากกว่าจำนวน Text Box นะครับ

ทำตัวอย่างไว้ครับลองดู