VBS脚本如何把数据库里面返回值赋给脚本里面的一个变量啊！

VBS脚本如何把数据库里面返回值赋给脚本里面的一个变量啊！
只返回某字段查找的某一个值，我试了好久就是不成功。
上网查的方法，不会用：
setrs=connObj.execute(strSQLCode)ifnotrs.eofthenmsgboxrs(字段名)或用setrs=server.createobject(adodb.recordset)rs.openSQL,connObj,1,1ifnotrs.eofthenmsgboxrs(字段名)
写上去说语句未结束，哪个大神可以写这句完整实例代码给我看一下吗？

 set rs=connObj.execute(strSQLCode)
 if not rs.eof then
    msgbox rs(字段名)
end if
或用
set rs=server.createobject(adodb.recordset)
rs.open SQL,connObj,1,1
if not rs.eof then msgbox rs(字段名)

vba语句要每行写一个，不能随意换行，也不能都写在一起。