VB中的查找代码，求高人帮忙改一下！

Question

一下一段用VB作的小区物业管理系统中“查找”部分的代码，
但是却不能运行
求高人指点一下，小女子深表感谢Private Sub Command5_Click()
If Text1.Locked = True Or Text2.Locked = True Or Text3.Locked = True Or Text4.Locked = True Or Text5.Locked = True Then
    Text1.Locked = False
    Text2.Locked = False
    Text3.Locked = False
    Text4.Locked = False
    Text5.Locked = False
    MsgBox "请输入查找编号"
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
    Text1.SetFocus
    Else
    Dim a
    a = "投诉编号=" & "'" & Text1.Text & "'"
    Data1.Recordset.FindFirst a
    If Data1.Recordset.NoMatch Then
       MsgBox "没有此记录"
       Else
           Text1.Locked = True
           Text2.Locked = True
           Text3.Locked = True
           Text4.Locked = True
           Text5.Locked = True
    End If
End If
End Sub

Answer 1

1 你是否有相应的数据库？
2 窗体上是否放了 Data 控件，并命名为 Data1 且连接了数据库？

Answer 2

有数据库，也用data连接了
在同一个窗口里的添加，删除，都可以用
就是单单这个查询运行错误！
不知究竟为什么