Alternatively, you can filter the form based on your combo box, cmbName,
selection.
Private Sub cmbName_AfterUpdate()
On Error GoTo Err_cmbName_AfterUpdate
If IsNull(cmbName.Value) Then
Me.Filter = ""
Me.FilterOn = False
Else
Me.Filter = "[strName]='" & cmbName.Value & "'"
Me.FilterOn = True
End If
Exit_cmbName_AfterUpdate:
Exit Sub
Err_cmbName_AfterUpdate:
MsgBox "cmbName_AfterUpdate Error: " & Err.Number & ": " & Err.
Description
Resume Exit_cmbName_AfterUpdate
End Sub