vedr. genskrivning til tabel

With rs
            .AddNew ' Tilføjer en ny record
            ' Tilføjer værdier for hver enkelt felt i tabellen
            .Fields("bil") = Range("Q" & r).value
            .Fields("km") = Range("R" & r).value
            .Fields("setnr") = Range("C" & 1).value
            .Fields("Ordrenr") = myRange.value
           
            .Update
        End With
        r = r + 1 ' tælleren
    Loop






Hej til alle.

Jeg har noget fra en excel ark, jeg med noget kode smider til en bestemt
tabel i min database, men det er nu sådan at trykker man flere gange på knappen
så bliver dataene smidt ind flere gange og det må det ikke.
dvs. at vi skal ind og tjekke om

            .Fields("setnr") = Range("C" & 1).value
            .Fields("Ordrenr") = myRange.value

står der i forvejen i database i tilfæde skal vi stoppe og få en besked.