hvis rs er null hvad så?

Idéen her er at jeg vælger fra en drop downliste, men hvis nu personen ikke står på dropdownlisten så bliver han oprettet, men så vil rs i dette tilfælde være null og access går direkte ind i VB.

Private Sub Kombinationsboks16_Exit(Cancel As Integer)
 
    Dim dB As DAO.Database
    Dim rs As DAO.Recordset
   
    Set dB = CurrentDb
    Set rs = dB.OpenRecordset("SELECT navn FROM medier where id = (select medieid from mkontakter where id = " & Me.kontaktid & ")")
    If rs = Null Then
    Else
    Me.medie = rs!navn
    End If
End Sub

jeg har denne til at oprette med

Private Sub Kombinationsboks16_NotInList(NewData As String, Response As Integer)
Dim prompt As String
DoCmd.SetWarnings False
Response = acDataErrContinue
prompt = "Kontakt personen findes ikke i listen, ønsker du at oprette ham/hende som freelancer?"
If MsgBox(prompt, vbYesNo, "Kontaktpersonen findes ikke!") = vbYes Then
DoCmd.RunSQL "INSERT INTO mkontakter (id, navn) VALUES (0,'" & NewData & "')"
Response = acDataErrAdded
End If
DoCmd.SetWarnings True

End Sub

Så på en eller anden måde handler det vel bare om at committe når køre NotInList?