System.Data.OleDb.OleDbException: FROM 子句语法错误

<%@ import namespace="system.data" %>
<%@ Page Language="vb" Debug="true" %>
<%@ import namespace="system.data.oledb" %>
<script language="VB" runat=server>
   dim cmd as oledbcommand
   dim dr as oleDbDataReader
   dim sql as string
   dim selLesson as string
   sub page_load(s as object,e as eventargs)
     selLesson=request.querystring("selLesson")
     dim title as string,i as integer
     dim conn as oledbconnection
     conn=new oledbconnection(configurationsettings.appsettings("strconn"))
     conn.open()
sql="select * from asp" & selLesson & " order by 题号"
cmd=new oledbcommand(sql,conn)
dr=cmd.executereader()
while dr.read()
dim literal1 as new literalcontrol
dim literal2 as new literalcontrol
dim rlist
if dr.item("类型")="选择"then
   rlist=new radiobuttonlist
else
   rlist=new checkboxlist
end if
literal1.text="<b>" & dr.item("题号") & "."
literal1.text & =server.htmlencode(dr.item("题目"))
literal1.text & ="(" & dr.item("类型")& ":"
literal1.text & =dr.item("分数") & "分)</b><blockquote>"
literal2.text   ="</blockquote>"
for i=1 to 4
  rlist.items.add(server.htmlencode(Dr.item("选项"&i)))
  rlist.items(i-1).value=i
  next
  mypanel.controls.add(literal1)
  mypanel.controls.add(rlist)
  myPanel.controls.add(literal2)
end while
dr.close()
conn.close()
end subsub score_click(sender as object, e as eventargs)
   sellesson=request.querystring("sellesson")
   
   dim conn as oledbconnection
   
   conn=new oledbconnection(configurationsettings.appsettings("strconn"))
   conn.open()
   sql="select * from [asp]" & selLesson & "order by 题号"
   cmd=new oledbcommand(sql,conn)
   dr=cmd.executereader()
   dim i,k,getscore as integer,answer as string
   while dr.read()
   answer=""
   i=dr.item("题号")
   dim list as listcontrol=mypanel.controls(1+3*(i-1))
   if dr.item("类型")="选择" then
     if not list.selecteditem is nothing then
        answer=list.selecteditem.value
     end if
   else
     for k=0 to list.items.count - 1
       if list.items(k).selected then
         if answer="" then
           answer=list.items(k).value
         else
           answer &="," & list.items(k).value
         end if
        end if
      next
   end if 
   if answer=dr.item("解答") then getscore += dr.item("分数")
   end while
  dr.close()
sql="update 成绩 set " & sellesson & "=" & getscore.tostring() & "where 学号=" & "'" & request("noid") & ""
   cmd=new oledbcommand(sql,conn)
   cmd.executenonquery()
   conn.close()
   response.redirect("score.aspx?学号=" & request("noid"))
end sub
</script>
<html>
<head><title>网上考试</title></head>
<body bgcolor="#eeccff">
<form runat="server">
<center><cont size="6"><%=request("sellesson2")%>ASP试题</font></center><hr color="blue">
<blockquote>
<asp:panel runat="server" id ="mypanel"/>
</blockquote>
<asp:linkbutton runat="server" text="交卷" onclick="score_click"/>
</blockquote>
</form>
</body>
</html>