我想编一个查询小程序，界面是4个文本框的，一个命令按钮，一个adodc1控件，当在第一个文本框输入要查询的字段时，点击按钮，就在其他文本框显示其他相应内容，数据库已连接好，就是运行的时候出现了adodc:至少一个参数没有被指定值!
请问我编的程序有问题吗？还是那个地方有错误啊！
请高手指点！不胜感激！

Private Sub Command1_Click()
Dim condition
condition = Trim(Text1.Text)
Adodc1.RecordSource = "select*from 库存 where " & condition & "='" & Text1.Text & "'"
Adodc1.Refresh
Text1.Text = Adodc1.Recordset.Fields("货物编号")
Text2.Text = Adodc1.Recordset.Fields("货物名称")
Text3.Text = Adodc1.Recordset.Fields("库存量")
Text4.Text = Adodc1.Recordset.Fields("单位")



End Sub


Private Sub Form_Load()
Adodc1.RecordSource = "select * from 库存"
Adodc1.Refresh
End Sub

期待着。。。。。。。。。。。。。。。

condition = Trim(Text1.Text)
Adodc1.RecordSource = "select*from 库存 where " & condition & "='" & Text1.Text & "'"
Adodc1.RecordSource = "select*from 库存 where " &  Trim(Text1.Text)
 & "='" & Text1.Text & "'"

你是想根据text1中输入的货物编号来查看货物吗？如果是的话下面的代码就可以 了   不是的话我也不懂你是什么意思了

Private Sub Command1_Click()
Adodc1.RecordSource = "select*from 库存 where 货物编号='" & Text1.Text & "'"
Adodc1.Refresh
Text2.Text = Adodc1.Recordset.Fields("货物名称")
Text3.Text = Adodc1.Recordset.Fields("库存量")
Text4.Text = Adodc1.Recordset.Fields("单位")
End Sub

听从您的建议以后，将程序改为：
Private Sub Command1_Click()
Adodc1.RecordSource = "select*from 库存 where " & Trim(Text1.Text) & "=" & Text1.Text & ""
Adodc1.Refresh
Text1.Text = Adodc1.Recordset.Fields("货物编号")
Text2.Text = Adodc1.Recordset.Fields("货物名称")
Text3.Text = Adodc1.Recordset.Fields("库存量")
Text4.Text = Adodc1.Recordset.Fields("单位")
End Sub
Private Sub Form_Load()
Adodc1.RecordSource = "select * from 库存"
Adodc1.Refresh
End Sub
运行后，界面不出错了，但是当我在第一个文本框里输入1的时候，其他的文本框也显示相应的信息，但是当我输入2的时候，在按命令按钮，还显示原来的1的信息，这是为什么啊？
附件为数据库文件

你好，我已经按照您写的程序重新试了一遍，但是提示“标准表达式中的数据类型不匹配”，这是为什么啊？

已经解决了，谢谢你啊，呵呵，把单分号去了就行了！十分感谢！