在VB+Access中如何防止添加重复的记录？

一个例子:
在保存时先打开数据库,用现在输入的关键字到数据库中查找是否有该记录,如果有则退出该过程，也就是不保存,如果没有,则继续该操作
Private Sub Command1_Click()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\客户信息.mdb" '打开数据库
sql = "select * from khxx where 客户编号= '" & Text1(0).Text & "'"
rs.Open sql, cn, 1, 1
If rs.RecordCount > 0 Then '根据关键字查找数据库是否有该记录,如果有
MsgBox "已有相同编号，请区别！", 48, "错误提示" '报错
Text1(0).Text = "" '清除已经输入的
Text1(0).SetFocus '光标移动到该位置
Exit Sub '退出此过程
End If
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing '关闭数据库
.....
end sub