用一个sql语句查询一数值，如何在vb代码中接收呢？

lilubin

用一个sql语句查询一数值，如何在vb代码中接收呢？
例如：
dim blv as double
gs = "select lv from 表 "
docmd.runsql (gs)
如何把返回的数值赋给blv

[此贴子已经被作者于2003-6-15 16:24:18编辑过]

cg1

dim rs as new adodb.recordset
rs.open strSQL,currentproject.connection,1,1
if rs.eof and rs.bof then
    msgbox "没记录可以取回"
else
    do until rs.eof
        blv=rs("lv")
        rs.movenext
    loop
end if

如果单值直接用
blv=nz(dlookup("lv","表"),0)

[此贴子已经被作者于2003-6-15 18:00:50编辑过]