Private Sub CmSearch_Click()
Prompt$ = "输入完整的姓名"
SearchStr$ = InputBox(Prompt$, "查找姓名")
职员档案.Recordset.Index = ""
职员档案.Recordset.Seek "=", SearchStr$
If 职员档案.Recordset.NoMatch Then
MsgBox ("对不起,不能发现要查找的姓名")
职员档案.Recordset.MoveFirst
End If
End Sub

Private Sub CmSearch_Click()
Prompt$ = "输入完整的姓名"
SearchStr$ = InputBox(Prompt$, "查找姓名")
职员档案.Recordset.Index = ""
职员档案.Recordset.Seek "=", SearchStr$
If 职员档案.Recordset.NoMatch Then
MsgBox ("对不起,不能发现要查找的姓名")
职员档案.Recordset.MoveFirst
End If
End Sub

报错“姓名”不是此表中的索引