为什么总是说标准表达试数据类型不匹配,到底我是那儿错了,请大家指点

Question

Private Sub Command1_Click()
Dim msg
msg = Trim(InputBox("请输入职工编号", "查询", 1))
msg = "职工编号 =  '" & msg & " ' "
Data1.Recordset.FindFirst msg
If Data1.Recordset.NoMatch Then
MsgBox ("没有符合条件的记录")
End If
End Sub其中运行程序说Data1.Recordset.FindFirst msg有问题(标准表达式数据类型不匹配)
请帮我改改,谢谢!

Answer 1

你的职工编号字段可能是int型的
修改
msg = Trim(InputBox("请输入职工编号", "查询", 1))
msg = "职工编号 =  " & msg