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

[wxwriver]

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
Private Sub Command1_Click()
On Error GoTo commanderror
Dim num As String
num = InputBox$("please input id", "id check", "001")
If num <> "" Then
num = "学号＝'" & num & "'"
rs1.FindFirst num　　'rs1在模块里已经定义
If Not rs1.NoMatch Then
MsgBox "no id ", vbOKOnly + vbExclamation, ""

Else
MsgBox "no id ", vbOKOnly + vbExclamation, ""

End If
End If


Exit Sub

commanderror:
MsgBox Err.Description

End sub

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
这是用DAO操作数据库时执行查询的一段代码。可是一运行，就提示：
语法错误（操作符丢失）

我是刚学VB数据库的。照着一本书做的。
语法错在哪里？
我不知道是不是这本书主要是VB5上运行的，所以会有一些错。
比如说它的一个SQL语句：
sql = "select 学籍.* from 学籍　　order by 学籍.学号"
我一运行起来，就说from语句错。
后来自己学了一下SQL，把最后的“学籍.学号“用括号括起来才通过。
哎，上书城去，居然找不到一本好的学数据库的书。
有人推荐的王国荣的书根本找不到。

[wxwriver]

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

[wxwriver]

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

[wxwriver]

不好意思。复制代码出错。
中间一段应该是：
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
next

end sub

[footballboy]

是《...实例导航》吧？

[wxwriver]

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

[footballboy]

等我找找看以前看书时练习生成的例子还在不在

[panxuejian]

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

[wxwriver]

上面那个问题已经搞定
说出来叫你晕

（num = "学号＝'" & num & "'"）
这一段代码的“学号＝“应该是“学号="

就这么简单，说出来你们别笑。我是菜鸟，
以前学的专业跟计算机差十万八千里。
总之，耽误大家时间，给分，希望以后能
得到各位大侠的多多指教。