如何按照下面的规则生成字段内容

asia2158

数据库名：SXZZ.MDB(ACCESS);表名：CODE_BUFF;主键字段CID：110001200304011005300005；
主键字段是在录入记录时由系统自动产生的，它的生成规则如下：
1:前6位是固定值110001；
2:中间的8位是录入记录时的当前机器日期:2003年4月1日；
3:接下来的6位是录入记录时的当前机器时间:上午10点5分30秒；
4:最后的4位是顺序码，由来已久0001开始递增，用以确保同时录入的记录不会重号；
5:此字段为“文本类型”,它的值要在操作人员在向CODE_BUFF表中录入数据时自动生成；
请问高手，如何在录入过程中生成此字段，请给出相应的VB6代码，或者在ACCESSXP内
用VBA实现的代码，谢谢！

NeilChen

set rst=currentdb.openrecordset("Code_Buff")

RC=rst.recordcount

CID="110001" & year(date()) & month(date()) & day(date()) & hour(time()) & Minute(time()) & Second(time()) & String(4-len(RC), "0") & RC


大概是这样吧，不一定能通过，告诉你一个思路而已