我将日期存入数据库中，然后从数据库读取到文本中，怎么样将他们分开，将年放一个框，月放一个框，日放一个框
然后进行修改后，又怎么将其转换为日期格式重新保存到数据库中？希望大家爱帮帮忙

分开：
dim Y as String
dim M as string
dim D as string
dim Data as Date

date=Adodc1.field("日期")
Y=year(data)
M=Moth(data)
D=day(data)

text1=y
text2=m
text3=d

合拢：
dim Data as Date
dim Y as String
dim M as string
dim D as string

y=text1
m=text2
d=text3
date=dateserial(y,m,d)
Adodc1.field("日期")=data
Adodc1.Refresh