cFilter = "MONTH(dat) == " + TRANSFORM(MONTH(thisform.Text2.Value))+ " AND "+; "Mac1 == '" + ALLTRIM(thisform.Text18.Value) + "' AND "+; "Typ == " + TRANSFORM(thisform.Text24.Value) set filter to &cFilter