快，速度解决就去睡觉(数据添加问题）

Question

想添加个记录，如果学号存在就退出
自己想很久解决不了，求助代码：Dim sql As String
---------------
sql = "selcet * from studentinfo where 学号='" & Trim(Text1(0).Text) & "'"
If rs.State = adStateOpen Then
rs.Close
End If
rs.Open sql, conn, 3, 3
If rs.RecordCount > 0 Then
MsgBox "已存在的学号!", 1 + 16, "警告"
Else
rs.AddNew
For i = 0 To 12
rs.Fields(i) = Text1(i).Text
Next i
rs.Update
MsgBox "信息添加成功!", vbOKOnly, "确认"
End If
Set rs = Nothing
End Sub谢谢

Answer 1

哪错了阿
rs.Open sql, conn, 1, 3
试试看

Answer 2

实时错误'-214727900(80040e14)':
第1行'*'附近有语法错误
黄色段指示在：rs.Open sql, conn,3, 3
试了rs.Open sql, conn, 1, 3也是同样

Answer 3

sql = "selcet * from studentinfo where 学号='" & Trim(Text1(0).Text) & "'"
上面的'selcet'应为select查询语句。