就是以个查找的问题，你判断以下就可以
if then
就行了

你在access设计数据库的表的时候把你想不能重复的字段设为key或索引就行了.
在vb写好的程序候如何输入了重复的内容就会出错.你捕捉这个错误号进行出错处理就行了!
我记得错误号好像是3021
那么有
errsub sub()
on error goto err3021
data1.recordset.update
'如果有重复的内容保存的时候如何出错
'出错处理:
err3021:
if err.number=3021 then
'出错处理的代码,可以什么不写,我写一句简单的出错处理代码
msgbox "你输入的数据已存在,请重新输入"
end if
end sub