实在没办法了，各位高手帮帮在下吧！

一个名为"temp"的库,含"输入""药品"两个表,"输入"表里有"声母""汉字"两个字段,,"药品"表里有"名称""价格"两个字段,窗体上有data1,adodc1,text1,command1,datagrid1,
command1.caption=A,我想设计成点击command1,text1输出所有声母为A的汉字，然后再到“药品”表里找名称的第一个字等于text1里任意一个字的记录。比如text1输出了
“阿氨”，那么datagrid1能列出
              名称                            价格
              阿莫仙胶囊
              阿莫西林胶囊
              阿莫西林克拉维酸钾针
              氨苄青霉素/丙磺酸(艾罗迪)
              氨苄青霉素/丙磺酸(0.25g*12s)
以下是我写的代码：
Private Sub Command1_Click()
Dim str1 As String, str2 As String, x As String, y As String
x = Command1.Caption
str1 = "select 汉字 from 输入 where 字母 like '*" & x & "*'"
Data1.DatabaseName = "D:\Program Files\VB98\database\temp.mdb"
Data1.RecordSource = str1
Data1.Refresh
Text1 = Data1.Recordset.Fields("汉字")
y = Text1.Text
str2 = "select * from 药品 where 名称 like '*" & [y]* & "*'"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=D:\Program Files\VB98\database\temp.mdb"
Adodc1.RecordSource = str2
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1End Sub
运行时这句 str2 = "select * from 药品 where 名称 like '*" & [y]* & "*'"
出错，而且老是提示“没有指定记录源”