ACCESS提示至少一个参数没指定值

ACCESS提示至少一个参数没指定值,不知错在那里

代如下:

Private Sub 修改记录_Click()
On Error GoTo Err_修改记录_Click
'定义用于循环的整型变量

'定义字符型变量
Dim STEMP As String
'定义数据集变量
Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset
'为定义的数据集变量分配空间
Set rs = New ADODB.Recordset
Set rs1 = New ADODB.Recordset
'为打开数据表“查询语句”字符变量赋值
STEMP = "Select * From 员工基本资料"
'打开“内部刊物资料”数据表
rs.Open STEMP, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
STEMP = "Select * From  员工基本资料查询"
rs1.Open STEMP, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  If rs1.RecordCount <= 0 Then
   MsgBox "目前记录为空，无记录可修改！", vbOKOnly, "提示！"
   Else
    rs1.MoveFirst    '把数据集指针指向第一记录
 
   Do While Not (rs1.EOF)
        If rs("员工ID") = rs1("员工ID") Then
            '修改“内部刊物资料”数据表字段值
rs("员工ID") = rs1("员工ID")
rs("部门ID") = rs1("部门ID")
rs("职务") = rs1("职务")
rs("姓名") = rs1("姓名")
rs("身份证ID") = rs1("身份证ID")
rs("出生日期") = rs1("出生日期")
rs("年龄") = rs1("年龄")
rs("性别") = rs1("性别")
rs("民族") = rs1("民族")
rs("籍贯") = rs1("籍贯")
rs("婚否") = rs("婚否")
rs("学历") = rs1("学历")
rs("外宿住厂") = rs1("外宿住厂")
rs("入职日期") = rs1("入职日期")
rs("基本工资") = rs1("基本工资")
rs("家庭地址") = rs1("家庭地址")
rs("备注") = rs1("备注")
            '使用记录集的Update方法来刷新记录集
            rs.Update
            '弹出“修改完成”的提示信息
            MsgBox "员工记录已经修改完成！", vbOKOnly, "修改完成"
            Exit Sub      '退出子过程
        Else
            rs1.MoveNext    '把记录指针移到下一条记录
        End If
       
Loop
   End If
    '刷新“内部刊物资料 子窗体”子窗体
    Me![员工基本资料查询 子窗体].Requery
    '释放系统为Rs数据集分配的空间
    Set rs1 = Nothing
       Set rs = Nothing
Exit_修改记录_Click:
    Exit Sub
Err_修改记录_Click:
    MsgBox Err.Description
    Resume Exit_修改记录_Click
End Sub