我这段代码问题在哪呢

Dim data,conn,connstr
        data="admin.mdb"
    Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(data)
    set conn = Server.CreateObject("adodb.connection") 
    conn.open connstr     

Dim rs,sql
    
       sql="select * form [admin] where id='" & id & "'"
       set rs=server.CreateObject("adodb.recordset")
       rs.open sql,conn,1,3
       
if session("class")="2" then
   if rs.fields("class")<>"2" then
      rs.delete
    end if
end if

Microsoft JET Database Engine '80040e14' 

语法错误 (操作符丢失) 在查询表达式 '* form [admin] where id='8'' 中。 

\wwwroot\delete.asp, line 18