VB SQL查询数据库指定字段出错！高手看看怎么做。

check1(0).value 表示查询字段 设定温度1
check1(1).value 表示查询字段 设定温度2
check1(2).value 表示查询字段 设定温度3
dim str as string
if check1(0).value then
str="设定温度1"
end if
if check1(1).value then
str=str & ",设定温度2"
end if
set rs=new adodb.recordset
rs.open="select str from 数据表"，m_dbconn
运行时总是提示至少有一个变量没定义，怎么回事，好像str有问题，
如果把上边写为rs.open="select 设定温度1，设定温度2 from 数据表"，m_dbconn就是好用的。
高手看看上边应该怎么写。