编号修改在文本类型，但是文本类型长度不要选择默认的255，设置20以下；否则会出错。测试一下。
lpID := Fields['编号'].Value; 改为lpID := Fields('编号').asstring;
在Access中，把编号改成文本类型。
