在vb中向sql server 2000中插入记录时关键字重复怎么处理？

Question

各位大侠请指教：
    我在sql server 2000 中建立了一个表“厂家资料”，将“厂家编号”设置为主键，在vb中用ado控件连接数据库，在运行程序时（此时还未制成安装文件），向表中插入记录，新插入的记录的“厂家编号”与表中已经存在的某一记录的“厂家编号“相同，如：同时为‘005’，程序报错内容如后面所写：实时错误‘－2147217873（80040e2f)':违反了PRIMARY KEY 约束 'PK_厂家资料’。不能在对象‘厂家资料’中插入重复键。
    我想用一个msgbox返回信息提示用户：”厂家编号重复，请修改重新输入！“关闭msgbox后整个程序仍然运行，然后用户另行输入资料，请各位大侠帮忙设计一下，请给出代码！！不胜感激！！！！谢谢了！！！！
    有其他方法能解决此类问题（必须是在vb中）的话大家也可以尽情帮忙！再次感谢！！

Answer 1

strsql=" select count(*) as i from 厂家资料 where 厂家资料='"& 厂家编号变量 &"'"
if rs.state<>adstateclosed then rs.close
rs.open strsql,conn,adopenkeyset,adlockreadonly
if rs.recordcount>0 then
    if rs!i>0 then
        msgbox "厂家编号已经存在，请重新输入！",48,"提示"
        rs.close
        exit sub
    endif
endif
rs.close'可以保存
strsql=" insert into 厂家资料(...) values(...)"
conn.execute strsql