问个语法问题

我最近想用access弄个简单的数据库，代替平时用excel作的一堆报表，就买了本access2007的书边学边弄，但是因为我没有vb的基础，在写一些表的数据操作的时候遇到了问题，比如下边这里：

dim record2 as adodb.recordset
dim record3 as adodb.recordset
openrecord "select * from 仓库 where (出入货标记= '出' and 已出货 = false) order by 进出货日期", record2
a1 = record2("商品名称")
openrecord "select * from 仓库 where (结余数量 >0 and 商品名称 =a1) order by 进出货日期", record3

在运行的时候老是出错：-2147217904（80040e10), 至少一个参数没有被指定值

我估计是 where (结余数量 >0 and 商品名称 =a1) 这里 商品名称 = a1 是不能这样写的，但是怎么写的呢，我已经被书里面的那些 """ + xxxx + """弄得头大了，能帮我说说么？谢谢咯。