soft VBScript 运行时错误 (0x800A000D)

<%   
  set   cnn=server.CreateObject("adodb.connection")   
  set   rs=server.CreateObject("adodb.recordset")   
  dim   cnnstr   
  cnnstr="Provider=Microsoft.Jet.OLEDB.4.0;"   &   "Data   Source="   &   server.MapPath("db1.mdb")   
  cnn.open   cnnstr   
  dim   rsstr   
  rsstr="select*from   用户"   
  rs.open   rsstr,cnn,1,3   
  if   not   request.Form("name")=""   or   request.Form("pwd")=""   or   request.Form("content")   then   
  dim   nam,pwd,content   
  nam=cstr(request.Form("name"))   
  pwd=cstr(request.Form("pwd"))   
  content=cstr(request.Form("content"))   
  'dim   sqladd   
    '     sqladd="insert   into   用户   (姓名,密码,内容)   values   "   &   "("   &   "'"   &   nam   &   "'"   &   ","   &   "'"   &   pwd   &   "'"   &   ","   &   "'"   &   content   &   "'"   &   ")"   
      '   cnn.execute   sqladd   
        rs.addnew   
        rs("姓名")=nam   
        rs("密码")=pwd   
        rs("内容")=content   
        rs.update   
        response.write("增加成功")   
  else   
        response.Write("填写")   
  end   if         
   
  %>   
   
  错误类型：   
  Microsoft   VBScript   运行时错误   (0x800A000D)   
  类型不匹配:   '[string:   "132131   53216546   56"]'   
  /krun/add.asp,   第   17   行   
   
  高手指点一下