Undgå dubletter ved oprettelse af ordrenr.

Hej.

Jeg har et lille system som opretter tilbud til kunder.

Ved gennemførsel af en ordre gemmes ordren i en access db hvor ordrenr = kundenr. dvs unikt. Kundenummeret er skabt af dagens dato ddmmyyyy og et nummer bagved som angiver ordrens nummer, hvis det er dagens første ordre hedder kundenummeret ddmmyyyy-1, men hvordan kan jeg tjekke db hvis kundenummeret = ddmmyyyy-1 og tillægge 1 hvis den eksisterer ?

Jeg har prøvet mig med følgende kode, men den tillægger et 1-tal mere bag 1-tallet. hvordan incrementere jeg?

Aar = DatePart("yyyy", Date, vbUseSystemDayOfWeek, vbUseSystem)
Maaned = DatePart("m", Date, vbUseSystemDayOfWeek, vbUseSystem)
Dag = DatePart("d", Date, vbUseSystemDayOfWeek, vbUseSystem)

' Sæt et nul foran de 9 første måneder
If Maaned < 10 Then Maaned = "0" & Maaned
' Sæt et nul foran de 9 første måneder
If Dag < 10 Then Dag = "0" & Dag
' De seks første i nummeret
Ordrenr = "Q" & Dag & Maaned & Aar & AK-
' Find det højeste nummer i den serie
strQuery = "SELECT * FROM tblNyKunde WHERE Ordrenr Like '" & Ordrenr & "%' "
strQuery =  strQuery &  "ORDER BY tblNyKunde.OrdreNr DESC; "
'response.write strQuery & "<br>"
rst.Open strQuery, conn, adOpenDynamic, adLockOptimistic
' Ingen fundet ? Start med 1
if rst.bof and rst.eof then
    Ordrenr = Ordrenr & "AK-" & 1
    else
    Ordrenr = rst("Ordrenr") & 1
end if