如何避免数据库记录的重复？

Question

如果在数据表设成不能重复的 就可以用错误捕捉 
On Error Resume Next
 ..........
     If Err = -2147467259 Then
       MsgBox "重复,请重写", 48
     end if

Answer 1

RS.Open "select * FROM 表 where 字段=输入的内容", Cnn, adOpenStatic, adLockOptimistic
    If RS.RecordCount = 0 Then
      MsgBox "该名称已存在"
    else
      rs.addnew
    End If

Answer 2

执行一个带where字句查询，记录集为rs
rs.eof=true  表示没有这条记录
rs.eof=false  表示这条记录已经存在，错误提示，跳出程序。就能避免重复记录的插入。