vb 中的查找功能

用两个文本框，第一个里输入学号，第2个作为显示名字
再做个查询按钮
假设cnn为数据库联接,rst为记录集，sql为查询语句
Sub Command1_Click()
sql="select 序号 from 表 where 姓名='" & text1.text & "'"
rst.open sql,cnn,adopenkeyset,adlockreadonly,adcmdtext
if not rst.eof then
text2.text=rst.fileds(0)
else
text2.text="查无此人！"
end if
rst.close
set rst=nothing
End Sub

Private Sub Command1_Click()
Data1.Refresh
If Data1.Recordset.RecordCount = 0 Then MsgBox "无记录！": Exit Sub
If Data1.Recordset.RecordCount > 0 Then
Data1.Recordset.MoveFirst
Do Until Data1.Recordset.EOF
If Data1.Recordset!学号 = "2" Then
text1.text=Data1.Recordset!姓名
Data1.Recordset.MoveNext
Else
Data1.Recordset.MoveNext

End If

Loop

End If
End Sub

打开数据库
查找符合要求的记录
将记录中需要的