VB在数据库端禁止录入重复数据

VB在数据库端禁止录入重复数据，对插入的数据进行判断，在写入数据库时进行判断是否已经存在于数据库中，判断是基于数据库的，数据库采用的是Access，在数据库端进行重复数据判断： 　　rs1.Open "select * from 客户类别表 where 客户类别= + Text1(0) + _ 　　 ", Cnn, adOpenKeyset, adLockOptimistic 　　If rs1.RecordCount > 0 And Text1(0) DataGrid1.Columns(0) Then 　　 MsgBox "此记录已存在！", , "提示窗口" 　　Else 　　 Cnn.Execute ("update 客户类别表 set 客户类别 = + Text1(0) + ,备注= + Text1(1) + _ 　　 ,修改日期= + Str(Date) + where 客户类别= + DataGrid1.Columns(0) + ") 　　 Adodc1.Refresh 　　 tlbState Toolbar1, False 　　 Text1(0).Locked = True: Text1(1).Locked = True 　　End If