vs2008 vb 怎么将strsql的查询结果复制给single型变量

vs2008 vb 如何将strsql的查询结果复制给single型变量？
dim dj as single
strSQL = "select 单价 from 工序 where 规格ID=' " & ComboBox2.Text & " '"
问要如何将strsql的结果赋值给dj 由于以后还要进行计算，所以dj一定得是小数型的。

[解决办法]
直接赋值就行了，有什么问题？

如果出现类型不匹配，就转换一下查询到的结果，再赋值。