Check the recordcount of a combo Box If 0 set additions to false

[oxicottin]

Hello, I have a combobox (cbo1) that its row source is a sql that allows me to select data and for the next record the data selected previousl wont show in the combo box. This happens for each record until there isn't any data to select in the combo box. I want to set additions to false when there inst any data in the combo. I tried:

Private Sub cboComponent_Dirty(Cancel As Integer)
If cboComponent.RecordsetClone.RecordCount > 1 Then
  Cancel = True
Else
  Me.AllowAdditions = False
End If
End Sub