hjælp til rapportfilter

hej

Jeg har en database, hvor jeg vha. en form skal filtrere hvad der kommer ud. jeg har fået lavet det meste, men har problemer med at få det til at virke. den kode der giver problemet er:

Private Sub Set_filter_Click()
Dim strSQL As String, intCounter As Integer

  For intCounter = 1 To 4
      If Me("Filter" & intCounter) <> "" Then
        strSQL = strSQL & "[" & Me("Filter" & intCounter).Tag & "] " & " = " & Chr(34) & Me("Filter" & intCounter) & Chr(34) & "" And ""
      End If
  Next

  If strSQL <> "" Then
    strSQL = Left(strSQL, (Len(strSQL) - 5))
    Reports![rptGruppe].Filter = strSQL
    Reports![rptGruppe].FilterOn = True
  End If
End Sub

fejlen jeg får er:
Error 13:
Type Mismacth