关于“Microsoft OLE DB Provider for ODBC Drivers '80040e14'"的问题再请教

各位前辈，你们好！
       我在编写程序的时候再次遇到Microsoft OLE DB Provider for ODBC Drivers '80040e14'的问题，弄了好一阵子也不知如何解决，请各位前辈多多帮忙，指点一下迷津。谢谢！
以下为程序代码：

<%
    Dim name1,password1
    name1=Trim(request.Form("name"))
    password1=Trim(request.Form("password"))
   If name1<>"" And password1<>"" Then
    Dim rs,strsql,id0
   Set rs=server.CreateObject("adodb.recordset")
   strsql="select *from tong_xue where name='" &name1&"'and password='"&password1&"'"
    rs.open strsql,db,1
%>
 <table border="1" width="600">
 <caption align=center> 删除记录</caption>
 <tr><th>姓名</th> <th>性别</th> <th>年龄</th> <th>电话</th> <th>邮箱</th> <th>地址</th> <th>删除</th>
<%
     Do While Not rs.bof And Not rs.eof
        session("id")=rs("id")
%>
<tr><td><%=rs("name")%></td> <td><%=rs("sex")%></td> <td><%=rs("age")%></td> <td><%=rs("tel")%></td> <td><%=rs("email")%></td> <td><%=rs("address")%</td>
<td> <a href="del.asp?id0=<%=session("ID")%>">删除</a> </td>
  <%
      rs.movenext
       loop
      Dim id1,strsql0
      id1=request.querystring("id0")
      strsql0="delete from tong_xue where ID=" & id1
       db.execute(strsql0)
     
 else
response.write"找不到相关记录，请重新输入"

End If
 
  %>
</table>

页面上出现
Microsoft OLE DB Provider for ODBC Drivers '80040e14'

[Microsoft][ODBC Microsoft Access Driver] 语法错误 (操作符丢失) 在查询表达式 'ID=' 中。

其中错误指向：db.execute(strsql0)

我的数据库ID字段为自动编号类型