Vanskelig update sætning

Jeg har en database hvoe jeg i en tabel gerne vil have opdateret/ændret data som indgår i et bestemt kriterie, men det virker også fint bare det at:
et felt som eks. indeholder 12345678-01, har jeg problemr med kun at udskifte 12345678 med noget andet. Det er kun de første 8 som skal ændres. min update sætning ser således ud:
dsn1.Execute "UPDATE TB_kontrakt SET Debitornr = '" & num & "', Debitor = '" & navn & "', Adresse1 = '" & adr1 & "', Adresse2 = '" & adr2 & "', Postnr = " & zip & ", By = '" & town & "', Kontraktnummer = '" & num & right(Kontraktnummer,3) & "' WHERE Debitornr LIKE '" & request.form("predebitornr") & "'"

Det er dette udsnit der driller:

Kontraktnummer = '" & num & right(Kontraktnummer,3) & "'