求教：“对象不支持该属性或方法”是什么意思？（抱拳）

我在点击”添加职员“按钮后，为什么第一次提示"员工档案记录已经添加成功"，但在子窗体中仅填入了”职员ID“，须修改录入的ID后，才真正能在子窗体中显示添加成功。

但接着会弹出一对话框”对象不支持该属性或方法“

请问为什么？谢谢！

代码如下：

Private Sub 添加职员_Click()
On Error GoTo err_添加职员_click
'定义保存“查询语句”的字符型变量
Dim stemp As String
'定义数据集变量
Dim rs As ADODB.Recordset
'为定义的数据集分配空间
Set rs = New ADODB.Recordset
stemp = "select * from 员工资料"
'打开“员工资料”数据表
rs.Open stemp, CurrentProject.Connection, adopenkeyset, adlockoptimistic
'判断窗体中必填文本框和组合框是否为空
If Me![职员ID] <> "" And Me![部门ID] <> "" And Me![姓名] <> "" And Me![身份证ID] <> "" Then
'如果必填文本框和组合框不为空
'使用记录集的addnew方法添加记录
rs.AddNew
'把窗体中文本框和组合框内的值赋予记录集中对应的字段
rs("职员ID") = Me![职员ID]
rs("部门ID") = Me![部门ID]
rs("姓名") = Me![姓名]
rs("性别") = Me![性别]
rs("籍贯") = Me![籍贯]
rs("年龄") = Me![年龄]
rs("民族") = Me![民族]
rs("身份证ID") = Me![身份证ID]
rs("家庭住址") = Me![家庭住址]
rs("手机号码") = Me![手机号码]
rs("备注") = Me![备注]
'使用记录集中的update方法来刷新记录集
rs.Update
'弹出“添加完成”的提示信息
MsgBox "员工档案记录已经添加成功", vbOKOnly, "添加完成"
Else
'如果必填文本框和组合框为空，则弹出“警告信息”
MsgBox "窗体中必填文本框和组合框不能为空", vbOKOnly, "警告"
Me![职员ID].SetFocus
End If
Me![员工资料 子窗体].repuery
'释放系统为RS数据集分配的空间
Set rs = Nothing
exit_添加职员_click:
Exit Sub
err_添加职员_click:
MsgBox Err.Description
Resume exit_添加职员_click
End Sub