Filter continuous subform with two criteria

[EternalMyrtle]

Hello I am trying to use this code to filter a continuous subform based on two criteria but getting a data type mismatch error.

It works fine if I filter by just one or another. Perhaps it is not possible

Or, does someone know a way?

Dim intSpouseEntityID As Integer

intSpouseEntityID = Nz(DLookup("[EntityID]", "qryEntitiesLocations", "[ContactIDNumber] =" & Me.Spouse), 0)

If intSpouseEntityID > 0 And Not IsNull(Me.subformContactsHomeAddress.Form.EntityID) Then
MsgBox ("There are two spouse addresses please delete one and try again")
DoCmd.Save
DoCmd.OpenForm "frmContactAddresses", , , "EntityID=" & Me.txtEntityID Or "EntityID =" & intSpouseEntityID
End If

 

[EternalMyrtle]

I want the continuous form to show both EntityIDs, so two records...

 

[EternalMyrtle]

I solved this problem by:

1. creating a calculated field in my form for the Dlookup to the spouse's EntityID
2. Creating a filter query and using that instead of a WHERE statement