3464标准表达式中数据类型不匹配

我在模仿报销管理系统的时候，有个修改功能一直报3464标准表达式中数据类型不匹配的错。

代码如下：

Private Sub Form_Load()

Dim rst As Object
Dim strSQL As String
Dim currentID As String
currentID = Form_frmCX_Cgy.Form.员工ID
strSQL = "select * from 采购员信息表 where 员工ID ='" & currentID & "'"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
rst.MoveFirst
Me.txtname = rst!员工姓名
Me.txtsex = rst!性别
Me.txtdate = rst!创建时间
rst.Close
Set rst = Nothing
End Sub

我调整了下原有的报销管理系统，做成先查询，对查询到的结果进行“编辑”

然后弹出编辑对话框，编辑保存。

但是我不知道代码要如何实现。敢问各位高手，如果调整成这种逻辑，代码如何写呀？