Subform With Multiple Combo Boxes Not Querying

I have a form with a subform. On the Form are three comboboxes for different types of data, Number, Floor, and RI Name. When I have the Number set to the first Number and the Floor to the first floor, the filter updates the subform data fine on each change. However if I change either Number or Floor it does the requery but it does not show a record in the subform. Here is my code. Please help.

Private Sub cmbFloor_AfterUpdate()
Me.cmbRI_Name = Null
Me.cmbRI_Name.Requery
Me.cmbRI_Name = Me.cmbRI_Name.ItemData(0)

Call DataUpdate

End Sub


Private Sub cmbNumber_AfterUpdate()

Me.cmbFloor = Null
Me.cmbFloor.Requery
Me.cmbFloor = Me.cmbFloor.ItemData(0)

Me.cmbRI_Name = Null
Me.cmbRI_Name.Requery
Me.cmbRI_Name = Me.cmbRI_Name.ItemData(0)

Call DataUpdate

End Sub

Private Sub cmbRI_Name_AfterUpdate()

Call DataUpdate

End Sub


Private Sub Form_BeforeUpdate(Cancel As Integer)

Me.cmbNumber = Me.cmbNumber.ItemData(0)

Me.cmbFloor = Me.cmbFloor.ItemData(0)

Me.cmbRI_Name = Me.cmbRI_Name.ItemData(0)

End Sub

Private Sub Form_Load()

Me.cmbNumber = Me.cmbNumber.ItemData(0)

Call DataUpdate

End Sub

Private Sub DataUpdate()

Me.Equipment_subform.Form.Filter = ""

Me.Equipment_subform.Form.FilterOn = False
Me.Equipment_subform.Requery

End Sub