Impedir valores duplicados ao inserir dados no formulário

Caros colegas do Fórum,

Estou montando um banco de dados e criei um código vba para que o banco de dados não permita novos registros que contenham valor e número iguais aos que já existem na minha base. Este código que criei só localiza e barra número duplicado, mas não está bloqueando valor. Alguém poderia me ajudar??

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim rst As DAO.Recordset
Dim strCriteria As String

strCriteria = "([VALOR] = " & Me.VALOR & ") And ([NÚMERO] = " & Me.NÚMERO & ")"

Set rst = Me.RecordsetClone
rst.FindFirst strCriteria

If rst.NoMatch Then
Exit Sub
Else
If MsgBox("Registro Duplicado!") Then
Cancel = True
End If
End If
Set rst = Nothing
End Sub

Bom dia Rafael

Para começar altere o nome do campo " Valor" para outro nome por exemplo "TxtValor" , pois Valor é um nome do Access e pode causar confusão.

Boa Tarde Assis,

Já fiz essa alteração que você sugeriu, porém a regra de duplicação está barrando valores com casas decimais diferentes, ou seja, o sistema está considerando que 1,00 é igual a 1,01.
Você sabe como resolver esse problema para que o sistema considere as casas decimais também?

Abraços e feliz 2016!!