kan ikke lave to filtre

Hej

Jeg har et filter på min form plus på min subform som jeg har på hovedformen, men jeg kan kun filtre på en af dem... er det bare mig eller ?

Det er min kode forneden, ved ikke om det giver menning ?

SearchID = Right(Me.OpenArgs(), Len(Me.OpenArgs()) - 3)

Me.Form.Filter = "ID = " & CInt(SearchID)
Me.Form.FilterOn = True

' Related tasks

Dim db As DAO.Database
Dim tblRst As DAO.Recordset
Dim ds()
Dim frm As Form

Set db = CurrentDb()

  Set tblRst = db.OpenRecordset("TBL_CaseRelation", dbOpenDynaset)
TotalRecSet = 0
Do While Not tblRst.EOF
TotalRecSet = TotalRecSet + 1
tblRst.MoveNext
Loop

tblRst.MoveFirst
ds = tblRst.GetRows(TotalRecSet)
   
    tblRst.Close
    Set tblRst = Nothing

x = 0

For i = LBound(ds, 2) To UBound(ds, 2)

If ds(1, i) = Me.ID.Value Then

strfilter = "ID = " & ds(2, i) & " AND "

End If

Next

If Len(strfilter) <> 0 Then

lngLen = Len(strfilter) - 4
strfilter = Left(strfilter, lngLen)

Set frm = Me.TBLTaskssubform.Form

frm.Filter = strfilter
frm.FilterOn = True

End If

Me.TBLTaskssubform.Requery