Subform - spm

Hej
På min main-form finder jeg records i min tabel v.hj.af indtastning i en combobox:
Private Sub CboFind_AfterUpdate()
  ' Find the record that matches the control.
    Dim rs As Object
    Dim txtnr As String 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[U_nr] = '" & Me![cbofind] & "'"
    Me!cbofind.Requery
    Me.Bookmark = rs.Bookmark
  If rs.NoMatch Then
        MsgBox "U-nr eksisterer ikke"
    Else
      On Error Resume Next
      txtnr = Me.cbofind.Text 
    End If
    rs.Close
End Sub

- Data på main-formen bliver så uændrede hvis data ikke findes i tabellen. Derimod springer frem til næste record i Subformen.
Hvordan forhindrer jeg det?