帮我看一段代码（用dao操作数据库）

Question

不好意思。复制代码出错。
中间一段应该是：
rs1.FindFirst num　　'rs1在模块里已经定义
    If Not rs1.NoMatch Then
  displayrecord  '上面的写错了。应该是执行这个子程序
    else
MsgBox "no id ", vbOKOnly + vbExclamation, ""     附：
Public Sub displayrecord()
Dim i As Integer
For i = 0 To 5
If Not IsNull(rs1.Fields(i)) Then
Text1(i) = rs1.Fields(i)
Else
Text1(i) = ""
End If
nextend sub

Answer 1

对，就是卢毅的＜数据库实例导航＞，他可能是在vb5上操作的。书的前言还写无论是VB5，VB6都能找到满意的答案。他的那本书没有提到ADO，crystal reporter也没有提到。

Answer 2

对，就是卢毅的＜数据库实例导航＞，他可能是在vb5上操作的。书的前言还写无论是VB5，VB6都能找到满意的答案。他的那本书没有提到ADO，crystal reporter也没有提到。

Answer 3

footballboy,你一定也看过这本书的，能给我一些帮助吗？

Answer 4

关于数据库的书，我的建议是买“机械工业出版社”的。如果学的是DAO就买
《Visual Basic 6 数据库访问技术》 是jeffrey P.McManusy(美)，
学的是ADO的话就买《Visual Basic 6 数据库开发人员指南》也是美国人写的

Answer 5

上面那个问题已经搞定
说出来叫你晕（num = "学号＝'" & num & "'"）
这一段代码的“学号＝“应该是“学号="就这么简单，说出来你们别笑。我是菜鸟，
以前学的专业跟计算机差十万八千里。
总之，耽误大家时间，给分，希望以后能
得到各位大侠的多多指教。