Forhindre dublet

For at forhindre dubletter i et felt i en formular vil jeg  indsætte følgende i feltet før opdatering:

Dim a As Byte
a = Me.Målernr
If DCount("*", "Aflæsning forbruger", "[Målernr] =" & a) > 0 Then
MsgBox "Der er allerede poster med denne værdi."
End If

Aflæsning forbruger er navnet på tabellen
Målernr er kontrolelementkilde

Jeg får beskeden Run-time error "6" Overflow

Lidt hjælp er behov.