求助：adodc:至少一个参数没有被指定值!

我想编一个查询小程序，界面是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