前日，在网上找到个生成流水号的代码，但是不知道怎么用，不知道怎么才能把记录插入到数据库里面去，用什么来存生成的流水号。我很菜的，请高手指点指点我！！！！
代码如下：
<script language="vbScript">
<!--
sub subcode
dim startyear
dim startmon
dim startday
dim code
startyear = <%=year(now())%>
startmon = <%=month(now())%>
startday = <%=day(now())%>
if startmon<10 then
startmon="0"&month(date)
end if
if startday<10 then
startday="0"&day(date)
end if
if startyear&startmon&startday<>left(<%=(rs_newcode.Fields.Item("maxer".value)%>,8) then
code=001
else
code=int(mid(<%=(rs_newcode.Fields.Item("maxer".value)%>,9,3))+1
end if
if len(code)=1 then
code="00"&cstr(code)
end if
if len(code)=2 then
code="0"&cstr(code)
end if
Form1.goods_code.value = startyear&startmon&startday&cstr(code)
end sub
-->
</script>

我怎么才能把生成的流水号插入到数据库（access）中呢？麻烦高手说详细点，我很菜的！