这段代码对吗？

Private Sub Command1_Click()
rs1.Open "select * from 员工信息表", Cnn, adOpenKeyset, adLockOptimistic rs1.AddNew
rs1.Fields("编号") = Text1(0)
rs1.Fields("姓名") = Text1(1)
rs1.Fields("性别") = Text1(2)
rs1.Fields("出生年月") = DTPicker1.Value
rs1.Fields("毕业院校") = Text1(3)
rs1.Fields("专业") = Text1(4)
rs1.Fields("学历") = Text1(5)
rs1.Fields("部门") = Text1(6)
rs1.Fields("工种") = Text1(7)
rs1.Fields("职务") = Text1(8)
rs1.Fields("职称") = Text1(9)
rs1.Fields("参加工作时间") = DTPicker2.Value
rs1.Fields("备注") = Text1(10)
rs1.Update
jbxx.Adodc1.Refresh
rs1.Close

End Sub

呵呵，书上写的，但是数据库是你自己建的，看有没有把该字段的类型给建立出错

数据库操作时，数据类型是很重要的，