[Resolvido]verificar se ja esta cadastro

Ola Pessoal

coloquei esse código no meu cadastro de fornecedor exemplo

quando digito um nome de fornecedor que tem na tabela ele acha ok , mas esta substituindo pelo que cadastro

exemplo ele acho marcio silveira e digito ricardo ele substitui o marcio

acho que fui claro

Dim Fornecedor As Variant


Fornecedor = DLookup("Fornecedor", "Tbl_Fornecedor", "txtFornecedor ='" & Me!txtFornecedor & "'")

Me.RecordsetClone.FindFirst "Fornecedor = '" & Me!Fornecedor & "'"
If Not Me.RecordsetClone.NoMatch Then

MsgBox ("Fornecedor já está Cadastrado:" & Chr(10) & Chr(13) & Chr(10) & Chr(13) & txtFornecedor), vbInformation, "Atenção"

DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Me.Bookmark = Me.RecordsetClone.Bookmark

end if
end sub

Ola Pessoal

Consegui resolver com esse código abaixo

If DCount("Fornecedor", "Tbl_Fornecedor", "Fornecedor = '" & Me.txtFornecedor & "' And Fornecedor = '" & Me.txtFornecedor & "'") > 0 Then
MsgBox " O Cliente " & Me!Fornecedor & " Já está Cadastrado verifique...", vbOKOnly, "ATENÇÂO"
Me.Undo
End If

caso alguém queira testar o código fico no aguardo se esta ok