由于您在表中设置了主键，在表中不能存在相同的主键值。所以插入一个已存有的列值时，当然会出现错误提示。解决此问题有很多种方法，比如: 
     1.在插入之前可以先判断,是否存在此列值，如果存在就提示。 
    2.使用On error goto ErrNumber 
     ...... 
     exit sub 
     errNumber: 
     if err.number=?? then 
     msgbox "??????" 
     end if 
    3.等等.... 
<END>