Fejl i indsætning af data?

Hvorfor får jeg fejl på denne sætning her:

Dim PresstrechedOption As Integer

Set rsAddKomp = New adodb.Recordset
rsAddKomp.LockType = adLockOptimistic

SQL = "SELECT * from order"
rsAddKomp.Open SQL, SQL_STRING

If PreStreched.Value = True Then PresstrechedOption = "JA"
If PreStreched.Value = False Then PresstrechedOption = "NEJ"

rsAddKomp.AddNew
    rsAddKomp.Fields("OrderNumber") = OrderNo.Text
    rsAddKomp.Fields("KompType") = BredanNo.Text
    rsAddKomp.Fields("Endring") = comboDiameter.Text
    rsAddKomp.Fields("AxMove") = ValAx.Text
    rsAddKomp.Fields("LatMove") = ValLat.Text
    rsAddKomp.Fields("Presstreched") = PresstrechedOption
    rsAddKomp.Fields("FlangeMatr") = comboFlange.Text
    rsAddKomp.Fields("Diameter") = Dn.Text
    rsAddKomp.Fields("Quantety") = Quantety.Text
    rsAddKomp.Fields("NemTallyNo") = Tally.Text
rsAddKomp.Update
rsAddKomp.Close

Set rsAddKomp = Nothing