ผมใช้ vb6 เชื่อมต่อ access แล้ว ไม่สามารถดึงค่าจาก combobox มาค้นหาด้วย sql ได้ครับ

มีวิธีดึงค่าอย่างไรได้บ้างครับ ผมเขียนแบบนี้ แต่ดึงไม่ได้ ซํกที แต่ถ้าใช้ค้นจาก text จะค้นได้ครับ แต่พอเป็น combo มันค้นไม่เจอเลย

Adodc4.RecordSource = "select product_id from product where product_name = '&combo1.text&'"
Adodc4.Refresh
With Adodc4.Recordset
Do Until .EOF
product_id = ![product_id]
.MoveNext
Loop
End With