data问题！为什么会报错？
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
