请帮忙分析一下代码有什么问题：
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 标准表达式中数据类型不匹配
我的学号字段类型为：文本型
操作系统为：ＸＰ，ＳＰ２　　ＶＢ６．０

inputbox的数据是字符型，转换一下。
FindXH = val(InputBox("请输入学号", "按学号搜索"))

FindXH 是字符串型的，再用 Val 终究还是字符串型的。由于你的学号字段是文本型，所以 FindXH 需添加单引号:
FindXH = "XH='" & FindXH & "'"

[此贴子已经被作者于2005-11-19 10:29:35编辑过]

Data1.Recordset.FindFirst (条件)
请问只有这句话能从表头扫描到表尾吗？我对DATA控件还不够熟练！！
我只学了ADO！！如果不能的话，应该要加个循环语句！！