Question

VB FIND的使用

我在程序里加了如下代码
是添加查找“学号”的功能
但是我运行之后输入正确的学号也显示的是无此学号！请各位帮帮忙我找不到原因了！
Private Sub Command1_Click()
Dim mno As String
mno = InputBox$("请输入学号", "查找窗")
Data1.Recordset.FindFirst "学号=' " & mno & " '"
If Data1.Recordset.NoMatch Then MsgBox "无此学号!", , "提示"
End Sub

Answer 1

Data1.Recordset.FindFirst "学号=' " & mno & " '"
修改为：
Data1.Recordset.Fields("学号")=mno

Answer 2

没有 FindFirst 方法 只有Find 方法