由于您在表中設置了主鍵，在表中不能存在相同的主鍵值。所以插入一個已存有的列值時，當然會出現錯誤提示。解決此問題有很多種方法，比如: 
     1.在插入之前可以先判斷,是否存在此列值，如果存在就提示。 
    2.使用On error goto ErrNumber 
     ...... 
     exit sub 
     errNumber: 
     if err.number=?? then 
     msgbox "??????" 
     end if 
    3.等等.... 
<END>