我编写的一段程序
编码是001 操作员是111
我现在要再添加一个用户，但是我的编号写的还是001 这样的话他就会跳出一个错误窗口
因为我的数据库是将编码设置成主键
我想在输入相同编码的时候有一个提示“用户已存在”
该如何写
数据库是sql2000

我的代码是：rs4.Open "select * from oper where 操作员='" + Trim(Combo1.Text) + "'", conn, adOpenKeyset, adLockOptimistic
If rs4.RecordCount > 0 Then
myval = MsgBox("确定要修改该操作员吗？", vbYesNo)
If myval = vbYes Then
rs4.Fields("操作员") = Trim(Combo1.Text)
rs4.Fields("编码") = Trim(Text1.Text)
rs4.Fields("密码") = Trim(Text2.Text)
rs4.Fields("级别") = Trim(Combo2.Text)
rs4.Update '更新数据库
Adodc1.Refresh
End If
Else
If Combo1.Text <> "" Then
myval = MsgBox("确定要保存该操作员吗？", vbYesNo)
If myval = vbYes Then
rs4.AddNew
rs4.Fields("操作员") = Trim(Combo1.Text)
rs4.Fields("编码") = Trim(Text1.Text)
rs4.Fields("密码") = Trim(Text2.Text)
rs4.Fields("级别") = Trim(Combo2.Text)
rs4.Update '更新数据库
Adodc1.Refresh

这样改修改部分就有问题了