关于查询结果赋值给变量问题

我经常碰到要把查询出来的结果（通常是一条记录的某个字段）赋值给某个变量的问题，每次都是利用ADO的Recordset对象来达到目的，可是要用ADO的话首先要建立Connection和Recordset对象，其次设置Recordset的活动连接和记录源，完了还得关闭两个对象并设为Nothing，真正有用的核心代码行不到三分之一，很痛苦，不知道坛友们有没有简便的方法，有的话能否指点一二？

另外有一个小东西跟大家分享一下：最近我系统中弄了个录入窗体，窗体上有日期和星期两个文本框由用户填写（星期填写“星期一”等，按汉字输入），完了录入表中，采用SQL的INSERT命令实现插入。但表中的星期是个编号（名为“星期编号”，查阅“星期”表中的主键“星期编号”字段，该表还有另一字段“星期名称”，值为“星期一”等汉字），遇到的问题是我希望窗体打开时日期和星期两个文本框由系统自动生成，日期简单，使用Date函数即可，但星期文本框有点麻烦了，利用WeekDay函数得到的是一个编号，怎样把编号转换成汉字填入文本框呢，绞尽脑汁想出来的办法就是上面的ADO的办法，后来一想，既然WeekDay函数得到一个编号，表中也存放的是编号，干脆将此函数值直接存入表中得了，窗体上的星期文本框直接删除不让用户填写。呵呵，也许坛友们早有此策，不好意思我现在才悟到，记载于此供后来者少走弯路，呵呵。