Not in list - err_handler

Har flg. kode der sørger for at bruger promtes når der intastes en printertype, der ikke findes i comboen. Printertypen tilføjes hvis bruger klikker JA, ellers kan der vælges mellem eksisterende. Burde sådanset være enkelt nok, og det fungerer også fint - ALTSÅ lige bortset fra:
Hvis jeg indtaster en printertype der ikke findes i forvejen, vises en msgBox hvori der står "ERROR:" og ikke mere. Problemet ligger jo i min Err_Handler, men jeg fatter ikke helt hvorfor den vises, for der er jo ikke tale om en fejl, eller ????

_____________________________________

Private Sub Printertype_NotInList(NewData As String, Response As Integer)
     
Dim promt As String
Dim rs As ADODB.Recordset

On Error GoTo Err_handler
   
    Response = acDataErrContinue
   
    promt = "Printertypen " & NewData & " findes ikke på listen, ønsker du at tilføje den ?"
    If MsgBox(promt, vbYesNo, "Ny printertype......") = vbYes Then
       
        ' tilføj det indtastede og opdater tabellen tblPrintertype
        Set rs = New ADODB.Recordset
        rs.Open "tblPrintertyper", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        rs.AddNew
        rs!Printertype = NewData
        rs.Update
        Response = acDataErrAdded
        rs.Close
        Set rs = Nothing
       
        Else
       
        ' 0 = falsk, dvs er ikke i comboboxen
        Response = 0
        MsgBox "Vælg en eksisterende printertype på listen i stedet for.", vbOKOnly + vbInformation, "Printertype ikke oprettet....."
     
        ' slet det bruger tastede ind i comboboxen
        Printertype.Undo
       
        End If

Err_handler:
       
    MsgBox "ERROR:" & Err.Description
       
End Sub
__________________________________________