数据库查询问题求教,功能实现不出来,谁能帮我该一下我的代码,谢了

Question

Private Sub Command1_Click()
Dim msg As Integer
msg = Trim(InputBox("请输入职工编号", "查询"))
Data1.Recordset.FindFirst msg
If Data1.Recordset.NoMatch Then
MsgBox ("没有符合条件的记录")
End If
End Sub

Answer 1

Private Sub Command1_Click()
Dim msg As Integer
msg = Trim(InputBox("请输入职工编号", "查询"))
Data1.Recordset.FindFirst "职工编号='"& msg & "'"
If Data1.Recordset.NoMatch Then
MsgBox ("没有符合条件的记录")
End If
End Sub