Private Sub Command3_Click()
If Text7.Text = "" Then
  MsgBox "请输入要查询的内容", 48, "信息提示"
  Text7.SetFocus
Else
Data.Recordset.FindFirst "接报案人 ='" & "'" & Text7.Text & "'"
Exit Sub
End If

If Data.Recordset.NoMatch Then
  MsgBox "无该记录", 64, "信息提示"
End If
End Sub

单引号不匹配，应该是双数吧，你的是单数！