access数据库，标准表达式中数据类型不匹配，急啊。

Question

标准表达式中数据类型不匹配，
Private Sub cmd_Find_Click()
Dim FindBH As String
FindBH = InputBox("请输入实验室编号", "按实验室编号搜索")
If FindBH <> "" Then
FindBH = "BH = "" &FindBH&"""
Data1.Recordset.FindFirst (FindBH)
If Data1.Recordset.NoMatch Then
y = MsgBox("没有相应的学生记录", vbOKOnly, "信息")
End If
End If
End Sub
BH就是ACCESS中的 一个编号数据，一开始用的自动编号，后来改成了 文本还是不行。
Data1.Recordset.FindFirst (FindBH)显示是黄色的。

Answer 1

FindBH = "BH = " & FindBH &""