请教高手如何解决？

Question

Public form1 As New form1Private Sub Command1_Click()
form1.Data1.RecordSource = "select * from cpda where 产品ID=text1.text"
form1.Data1.Refresh
End Sub为什么运行语句提示“参数不足，期待是1”
 请教高手如何解决？

Answer 1

很基础的字符串连接问题，应该好好看看书ID是文本类型：
form1.Data1.RecordSource = "select * from cpda where 产品ID='"& text1.text &"'"
ID是数值类型：
form1.Data1.RecordSource = "select * from cpda where 产品ID="& text1.text

Answer 2

ID是文本类型：
form1.Data1.RecordSource = "select * from cpda where 产品ID='"& text1.text &"'"
ID是数值类型：
form1.Data1.RecordSource = "select * from cpda where 产品ID="& text1.text