错误代码(0x80004005)问题？？

<%
    dim a,b
      set a=server.CreateObject("adodb.connection")
      a.connectionstring="driver=microsoft access driver (*.mdb); dbq="&server.MapPath("denglu.mdb")
      a.open
          b="insert into dl(yhm,mm)values('"&xm&"','"&mm&"')"
      a.execute(b)
      response.Write "已经成功添加记录!"

if xm="" or mm="" then
%>



错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] 字段 'denglu.yhm' 不能是零长度的字符串。
/hanzhu3366/登陆框/denglu1.asp, 第 18 行→“a.execute(b)”

该怎么改？