Om man inte väljer ett värde i kombobox.

När användaren skriver ett värde som inte finns i komboboxen så ska ruta komma fram och man ska då välja om värdet ska läggas till.
Har skrivit koden nedan:
Får en bugg vid raden:
Set rs = db.OpenRecordset("tblkund")
Tacksam för hjälp!

Private Sub Orterna_NotInList(NewData As String, Response As Integer)
Dim db As DataSourceControl
Dim rs As Recordset

If MsgBox("Vill du lägga till värdet", vbYesNo + vbInformation, "Ej i lista") = vbYes Then
RunCommand acCmdUndo
Set db = CurrentDb()
Set rs = db.OpenRecordset("tblkund")
rs.AddNew
rs("Orterna") = NewData
rs.Update

Set rs = Nothing
Set db = Nothing

Response = acDataErrAdded
Else
Response = acDataErrContinue
RunCommand acCmdUndo
End If
End Sub

Tacksam för hjälp!