在表单中有一字段（出生日期）是日期型的，设计了一个添加按钮，代码如下：
if empty(alltrim(thisform.txt编号.value))
messagebox("职员号不能为空",48,"错误")
thisform.txt编号.setfocus
else
inID=alltrim(thisform.txt编号.value)
inName=alltrim(thisform.txt姓名.value)
inSex=alltrim(thisform.combo1.value)
inBirth=alltrim(thisform.txt出生日期.value))
inLearn=alltrim(thisform.combo4.value)
inPolitics=alltrim(thisform.combo2.value)
inPhone=alltrim(thisform.txt籍贯.value)
inAddress=alltrim(thisform.combo3.value)
inDepartment=alltrim(thisform.txt联系方法.value)
injjpj=alltrim(thisform.edit1.value)

set order to 编号
seek inID
if !found()
insert into dyxx(编号，姓名，性别，出生日期，语种，学历，籍贯，星级，联系方法，简介评价) value(inID,inName,inSex,inBirth,inLearn,inPolitics,inPhone,inAddress,inDepartment,injjpj)
messagebox("添加成功！",48,"信息")
thisform.txt编号.value=""
thisform.txt姓名.value=""
thisform.combo1.value=""
thisform.txt出生日期.value=""
thisform.combo4.value=""
thisform.combo2.value=""
thisform.txt籍贯.value=""
thisform.combo3.value=""
thisform.txt联系方法.value=""
thisform.edit1.value=""


else
messagebox("此职员号已存在，请另输一个",48,"错误")
thisform.txt编号.value=''
thisform.txt编号.setfocus
endif
endif
运行时会报数据类型不配。想过去可能是出生日期的问题，可是不知道怎么改啊？

inBirth=alltrim(thisform.txt出生日期.value))
有问题