同blockname引起的问题！

武文弄墨

就是如果blockname出现重复，则在同一张图纸上会出现两个同名的
块！！
具体一点，就是：我要在acad里面用vba做块，同时会根据access
数据库读取一个记录来做块名。
比如数据库中最后一条记录是re。feilds（“id”）＝112
则，我就新增加一记录 re。addnew
然后将id加1，做为新记录的id和块的blockname。

这样，问题就出现了，如果在同一图纸上，我删掉最后做的那个块，
相应也要在数据库中删掉最后一个记录！然后在这种图纸上，再重新
做一个块，记录的id值将是以删掉的那个，相应的blockname也重复了。
这样，在acad里面将看到了刚刚删除的那个块！

我个人认为是没有在modelspace里面没有把原来的那个删掉的原因！究竟如何彻底才能
删除！
但是还要请高手指教！