xin code báo mã trùng !!!

[o0magiz0o]

trong vb có cái liên kết với access, mà trong access có khóa. mình muốn khi nhập mới trong Vb thì nó báo là trùng mã và yêu cầu nhập lại mã khác.
ai biết chỉ giúp :(

[Bị Gấu Cắn]

Khi nhập cái gì thì select trong DB ra với cái mã đó, ví dụ COUNT(*) chẳng hạn. Nếu trả về số bản ghi > 0 thì bắt nhập lại, không thì thôi.

[QuyNam]

Dim CNN As ADODB.Connection

Set CNN = New ADODB.Connection
CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Data.mdb"
If CNN.State <> adStateOpen Then End

'Kiem tra record co ton tai hay khong
Public Function RecordExists(ByVal sTable As String, ByVal sField As String, ByVal sString As String) As Boolean
Dim RS As New ADODB.Recordset
RS.Open "SELECT [" & sField & "] FROM " & sTable & " WHERE [" & sField & "] = '" & sString & "'", CNN, adOpenStatic, adLockReadOnly
RecordExists = (RS.RecordCount > 0)
Set RS = Nothing
End Function