[5分]如何将一个查询得到的值赋值给一个变量

要实现的目的：

dim a as long

通过一个查询语句，将满足条件的一个唯一的记录的指定的字段的值赋值给相应的 接收变量  a

要实现的功能大概是以下代码：

释疑：

bksl 是办卡数量，是长整型

yjrq 是业绩日期，日期型

这两个字段都存在与表 tblcode_mryj 中

前提，业绩日期是唯一的。并且是主键，因为一天只能允许产生一条关于业绩的信息

a =(  "select bksl  from   tblcode_mryj  where   yjrq  = "# & me.yjrq &  "#"     )

我希望实现的功能是：通过比对当前窗体的me.yjrq和表中的 yjrq，找到相符合的记录，然后将  该记录对应的  bksl 的值赋值给   a

目标的中文翻译：    通过对比单签窗体的“业绩日期”和表中“业绩日期”，找到属于一致的一条数据，然后将该数据中的“办卡数量”赋值给  长整型变量  a

希望实现该目的的方法，是先通过查询查到所需的数据，然后再把数据赋值给我预先定义的变量

当然，如果能用其他办法解决，达到目的，也行。

谢谢赐教！