ไม่แน่ใจว่า o เนี๊ยะคือตัวแปรตัวหนึ่งหรือเปล่า เพราะเห็นไปตั้งค่า e = o
และใน SQL ตัวหน้า FROM ต้องมีเว้นวรรคด้วย

[FONT=Courier]
Dim e As String, myproduct As String
e = o
myproduct = "SELECT [Part Number], [Part Name], [Amount], [In Stock] FROM tbl_Bill " & _
"WHERE [Part Number] Like '*" & o & "*'"
Forms("frm_Order").[Form].[Controls]("List103").RowSource = myproduct
[/FONT]

บรรทัดนี้
Forms("frm_Order").[Form].[Controls]("List103").RowSource = myproduct
ควรจะแก้เป็น
Forms("frm_Order").[Controls]("List103").RowSource = myproduct
หรือ
Form!frm_Order!List103.RowSource = myproduct

โทษทีตก s ไป 1 ตัว
Forms!frm_Order!List103.RowSource = myproduct

ขอบคุณพี่ pizza_p ครับ
ผมลองทำตามพี่ดูแล้ว แต่ไม่ก็ยังไม่มาแสดงที่กล่อง list อ่ะครับ ตัวแปล e ผมก็ไม่ทราบว่ามันคืออะไร ผมก็ลอกๆคนอื่นมาครับ
พอจะมีโค้ดตัวอื่นที่จะสามารถทำให้มันมาแสดงได้ไหมครับ

ไม่มี error อะไรแจ้งเลยหรือ จริงๆต้องดูแล้วละว่า แต่ละฟอร์มมี control อะไรบ้าง จะได้หาจุดที่ผิดได้

ไม่ขึ้น error เลยครับ อันนี้เป็นโค้ดที่เขียนในฟอร์มที่ใช้กรอกจำนวนที่สั่งซื้อสินค้าครับ โดยพอกรอกแล้ว ให้มันเข้าไปในตาราง แล้วหักลบสต๊อก แล้วให้มันมาแสดง list ที่สร้างไว้อีกฟอร์ม
Private Sub Command10_Click()
Dim numberproduct As Double

numberproduct = Text6.Value - Text8.Value
Text12.Value = numberproduct

Dim dbs As Database
Set dbs = CurrentDb
    dbs.Execute " INSERT INTO [tbl_Bill]" _
                    & "([Part Number], [Part Name], Amount, [In Stock]) VALUES " _
                    & "('" & Text0 & "', '" & Text2 & "', '" & Text8 & "', '" & Text6 & "');"
dbs.Close
Set dbs = Nothing

Dim sql As String
sql = "SELECT [Part Number], [Part Name], [Amount], [In Stock]" & " FROM tbl_Bill " & _
"WHERE [Part Number]   Like '*" & "Text0" & "*'"
Forms("frm_Order").[Controls]("List107").RowSource = sql

Dim ddb As Database
Set ddb = CurrentDb
typeproduct = Forms!frm_Order!Combo101.Column(1)
Select Case typeproduct
Case Is = "COT"
ddb.Execute "UPDATE tbl_COT SET [In Stock] ='" & Text12 & "' WHERE [Part Number] ='" & Text0 & "' ;"
                    ddb.Close
                    Set ddb = Nothing
Case Is = "TUBE"
ddb.Execute "UPDATE tbl_TUBE SET [In Stock] ='" & Text12 & "' WHERE [Part Number] ='" & Text0 & "' ;"
                    ddb.Close
                    Set ddb = Nothing
End Select
End Sub

Dim sql As String
sql = "SELECT [Part Number], [Part Name], [Amount], [In Stock]" & " FROM tbl_Bill " & _
"WHERE [Part Number]   Like '*" & Text0 & "*'"
Forms("frm_Order").[Controls]("List107").RowSource = sql

เอาเครื่องหมายคำพูดออกจาก "Text0"

ขอบคุณ คุณ pizza_p มากครับ ได้แล้วครับ ทำมาหลายวันแล้ว ผมพึ่งหัดทำ