vb+sql的问题！

sql中有一个表，其中有两列 “产品”和“价格”
vb中有一个datalist控件，部分代码如下：
dim cnn as new adodb.connection
dim rs1 as new adodb.recordset
dim rs2 as new adodb.recordset
然后cnn连上数据库
set rs1.activeconnection=cnn
set rs2.activeconnection=cnn
rs1.open "select * from 表1"
Set Datalist1.RowSource = rs1
Datalist1.ListField = "产品"
控件中成功显示“产品”列的数据
想实现的功能：双击datalist中的"产品"来得到它对应的"价格"
ps：我用下面的代码为什么不行？？
Private Sub DataList1_DblClick()
rs2.open "select 价格 from 表1 where 产品='" & Datalist1.Text & "'"
text1.text=rs2.fields("价格")
End Sub
这样子得不到价格啊，
是不是fields那里错了？应该怎么写啊?
刚学vb不是很懂，希望得到正确的回答，谢谢。 --------------------编程问答-------------------- rs2.open   "select   价格   from   表1   where   产品='"   &   Datalist1.Text   &   "'" 

Datalist1.Text   这个得到是个啥值？ --------------------编程问答-------------------- 我觉得应该是你在把数据给DATALIST后,价格这个列的数据就已经没有了

补充：VB ,  数据库(包含打印，安装，报表)