[Resolvido]Avisar dados existentes

Bom dia

Como eu faço para ao salvar indentificar que os dados já existenten na tabela ,baseado em 3 campos?

campo1
campo2
campo3

serão forem identicos emitir aviso

Teste assim, mudar nomes

Dim rs As DAO.Recordset
Dim sql as string

Sql = ("select * from Suatabela where campo1 = " & campoform1 & " and campo2 = " & campoform2 & " and campo3 = " & campoform3 ) ' aqui vai verificar os campos do registo
Set rs = CurrentDb.OpenRecordeset(sql)

If rs.recordcount = 1 then
Msgbox" registo ja existe"
Me.undo
Else
Deixa inserir registo
End If

da erro nesta linha

Set rs = CurrentDb.OpenRecordeset(sql)

Boa noite
Quer postar a tabela e o formulário

Não deu certo

Funcionou (Access 97)!

Código:


Private Sub usuário_AfterUpdate()
   If NewRecord And Len(DLookup("Usuário", "tbl_users", "Usuário = forms.frm_users.usuário.text")) > 0 Then
      MsgBox ("Esse usuário já foi cadastrado")
      Me.Undo
   End If
End Sub


Perfeito obrigado Alexandre Fim!