请帮忙分析一下代码有什么问题：
Private Sub cmd_Find_Click()
Dim FindXH As String
FindXH = InputBox("请输入学号", "按学号搜索")
If FindXH <> "" Then
FindXH = "XH=" & FindXH & ""
Data1.Recordset.FindFirst (FindXH)
If Data1.Recordset.NoMatch Then
y = MsgBox("没有相应的学生记录", vbOKOnly, "信息")
End If
End If

End Sub
编译的时候，错误代码如下：
实时错误：3464 标准表达式中数据类型不匹配
我的学号字段类型为：文本型
操作系统为：ＸＰ，ＳＰ２　　ＶＢ６．０