' Filterbedingung zusammenstellen
    If Left$(sText, 2) = "<>" Then
      sOp = "<>"
      sValue = LTrim$(Mid$(sText, 3))
    ElseIf UCase$(Left$(sText, 9)) = "NOT LIKE " Then
      sOp = "NOT LIKE"
      sValue = LTrim$(Mid$(sText, 10))
    ElseIf UCase$(Left$(sText, 4)) = "NOT " Then
      sOp = "NOT"
      sValue = LTrim$(Mid$(sText, 5))
    ElseIf Left$(sText, 2) = ">=" Or Left$(sText, 2) = "=>" Then
      sOp = ">="
      sValue = LTrim$(Mid$(sText, 3))
    ElseIf Left$(sText, 2) = "<=" Or Left$(sText, 2) = "=<" Then
      sOp = "<="
      sValue = LTrim$(Mid$(sText, 3))
    ElseIf InStr("<>=", Left$(sText, 1)) > 0 Then
      sOp = Left$(sText, 1)
      sValue = LTrim$(Mid$(sText, 2))
    Else
      sOp = IIf(bText, "LIKE", "=")
      sValue = sText
      If sValue = "''" Or sValue = String$(2, Chr$(34)) Then sValue = ""
      If bText Then
        If Right$(sValue, 1) = "*" Then
          sValue = Left$(sValue, Len(sValue) - 1) & "%"
        ElseIf Right$(sValue, 1) <> "%" Then
          sValue = sValue & "%"
        End If
      End If
    End If
 
    If sValue = "''" Or sValue = String$(2, Chr$(34)) Then sValue = ""
    If bText And Left$(sValue, 1) <> "'" And Len(sValue) > 0 Then
      If .Columns(nCol).DataType = dtHyperlink Then sValue = "#" & sValue
      sValue = "'" & sValue & "'"
    Else
      If .Columns(nCol).DataType = dtBoolean Then
        sValue = IIf(sValue = "ja", "True", "False")
      ElseIf .Columns(nCol).DataType = dtDate Then
        If IsDate(sValue) Then
          sValue = "#" & Format$(CDate(sValue), "m-d-yy") & "#"
        End If
      End If
    End If
 
    .LockUpdate True
    If sOp = "" And sValue = "" Then
      ' Filter ausschalten
      .Recordset.Filter = ""
      nCol = 0
    Else
      ' Filter einschalten
      .Recordset.Filter = "[" & .Recordset.Fields(nCol - 1).Name & "] " & sOp & _
        " " & sValue
    End If