用得着这么麻烦么,在设计数据库时定义key和索引就行了
在vb进行保存操作如果有重复的就会产生一个错误,捕捉
这个错误号(3021)
程序示例:
private sub save()
on error goto err3021
data1.recordset.update
err3021:
if err.number=3021 then
msgbox "有重复的值不能进行保存!"
exit sub
end if
end sub

如果你是想确保字段值的唯一性
不用那么麻烦
数据库中有一个字段属性可以设置字段值的唯一性
不用我们来维护