access 多步oledb操作产生错误

[albertnum1]

我的VB代码是这样的：
Private Sub 保存_Click()
On Error GoTo Error_保存_Click
Dim Temp As String
Dim Data As ADODB.Recordset
Set Data = New ADODB.Recordset
Temp = "Select*From 兼职人员信息档案"
Data.Open Temp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Me![照片] <> "" And Me![姓名] <> "" And Me![性别] <> "" And Me![民族] <> "" And Me![籍贯] <> "" And Me![身份证号] <> "" And Me![出生日期] <> "" And Me![婚否] <> "" _
And Me![面试评价] <> "" And Me![所在岗位] <> "" And Me![联系电话] <> "" And Me![紧急联系电话] <> "" And Me![电子邮件] <> "" And Me![通讯地址] <> "" And Me![微信] <> "" _
And Me![常住辖区] <> "" And Me![附近地铁] <> "" And Me![附近公交] <> "" And Me![性格] <> "" And Me![健康状况] <> "" And Me![身高] <> "" And Me![体重] <> "" And Me![持有证件] <> "" _
And Me![QQ] <> "" And Me![特长爱好] <> "" And Me![学历] <> "" And Me![专业] <> "" And Me![是否在读] <> "" And Me![年级] <> "" And Me![院校] <> "" And Me![英语能力] <> "" _
And Me![其它语言] <> "" And Me![学生经历] <> "" And Me![兼职经历] <> "" And Me![实习经历] <> "" And Me![工作经历] <> "" And Me![推荐人] <> "" And Me![添加人] <> "" Then
Data.AddNew
Data("照片") = Me![照片]
Data("姓名") = Me![姓名]
Data("性别") = Me![性别]
Data("民族") = Me![民族]
Data("籍贯") = Me![籍贯]
Data("身份证号") = Me![身份证号]
Data("出生日期") = Me![出生日期]
Data("婚否") = Me![婚否]
Data("面试评价") = Me![面试评价]
Data("所在岗位") = Me![所在岗位]
Data("联系电话") = Me![联系电话]
Data("紧急联系电话") = Me![紧急联系电话]
Data("电子邮件") = Me![电子邮件]
Data("通讯地址") = Me![通讯地址]
Data("微信") = Me![微信]
Data("QQ") = Me![QQ]
Data("常住辖区") = Me![常住辖区]
Data("附近地铁") = Me![附近地铁]
Data("附近公交") = Me![附近公交]
Data("性格") = Me![性格]
Data("健康状况") = Me![健康状况]
Data("身高") = Me![身高]
Data("体重") = Me![体重]
Data("持有证件") = Me![持有证件]
Data("特长爱好") = Me![特长爱好]
Data("学历") = Me![学历]
Data("专业") = Me![专业]
Data("是否在读") = Me![是否在读]
Data("年级") = Me![年级]
Data("院校") = Me![院校]
Data("英语能力") = Me![英语能力]
Data("其它语言") = Me![其它语言]
Data("学生经历") = Me![学生经历]
Data("兼职经历") = Me![兼职经历]
Data("实习经历") = Me![实习经历]
Data("工作经历") = Me![工作经历]
Data("推荐人") = Me![推荐人]
Data("添加人") = Me![添加人]
Data.Update
MsgBox "新兼职人员信息保存完毕！", vbOKOnly, "保存完毕"
Else
MsgBox "所有项目都不能为空！没有请填无！", vbOKOnly, "警告"
Me![姓名].SetFocus
End If
Me![兼职人员信息档案 子窗体].Requery
Set Data = Nothing
Exit_保存_Click:
Exit Sub
Error_保存_Click:
MsgBox Err.Description
Resume Exit_保存_Click
End Sub
填完数据之后点击保存按钮就会出现“多步 OLE DB 操作产生错误。如果可能，请检查每个 OLE DB 状态值。没有工作被完成。”的提示。
求大神指点啊！！！！！！！！！！！！

[文修]

楼主你好： 如果在编程过程中遇见错误如下： 　　多步OLE DB 操作产生错误。如果可能，请检查每个OLE DB状态值 　　那么你可以往一下考虑： 　　1、原因很可能是你”select * from …”这句话，如果你数据库里这张表的字段很多的话可能就会产生OLE DB错误，你不妨从数据库中调用数据的时候用”select 用到的字段 from …”没用到字段最好不要放进去。 　　2、生成的字段和数据库对应字段长度不相符的原因。这个错误可能就是，例如你往表的id字段插入数据，表中该字段的长度为8位，而你的数字内容为300，那么可能就发生如此错误了。 　　希望对你有帮助。 　

[albertnum1]

引用 1 楼 congya001 的回复:

楼主你好： 如果在编程过程中遇见错误如下： 　　多步OLE DB 操作产生错误。如果可能，请检查每个OLE DB状态值 　　那么你可以往一下考虑： 　　1、原因很可能是你”select * from …”这句话，如果你数据库里这张表的字段很多的话可能就会产生OLE DB错误，你不妨从数据库中调用数据的时候用”select 用到的字段 from …”没用到字段最好不要放进去。 　　2、生成的字段和数据库对应字段长度不相符的原因。这个错误可能就是，例如你往表的id字段插入数据，表中该字段的长度为8位，而你的数字内容为300，那么可能就发生如此错误了。 　　希望对你有帮助。 　

表中的字段我都用到李，而且我的字段长度都设置的最大值255，输入的字数也远远小于这个值，也允许了空字符串