[求助]关于自动生成流水编号的问题！

大侠、高手们：小弟做了一个表单form1，内容包括：text1编号、text2项目、text3名称、等等......最终向“表1”中保存所属入的数据，表一字段包括：编号、项目、名称、等。。。。

小弟想讨教的是在表单form1的init事件中如何写代码可以实现在表单form1打开时自动在“text1编号”中生成一个“8为日期”+“3位编号”（从001开始，002、003.。。。；但当日期变化时再从001开始）

小弟跪求高手指点，最好能有代码！