试试:
cust.AddNew
cust.fields("客户名:).value = InputBox("请输入您要增加的用户名:")
cust.fields("联系方式").value = InputBox("请输入您要增加用户的联系方式:")
cust.Update

解决方案 »

  1.   

    试试:
    cust.AddNew
    cust.fields("客户名").value = InputBox("请输入您要增加的用户名:")
    cust.fields("联系方式").value = InputBox("请输入您要增加用户的联系方式:")
    cust.Update
      

  2.   

    dim khm as string
    dim lxfs as string
    khm=InputBox("请输入您要增加的用户名:")
    lxfs=InputBox("请输入您要增加用户的联系方式:")
    cust.addnew
    cust! 客户名=khm
    cust! 联系方式=lxfs
    cust.Update其实给个变量就能解决了