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

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
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，把最后的“学籍.学号“用括号括起来才通过。
哎，上书城去，居然找不到一本好的学数据库的书。
有人推荐的王国荣的书根本找不到。