Access Datenfilter wie im Excel realisieren

Function ZK_Filter()
'*****************  
Dim i As Integer
Dim CritName As String 'Mitarbeitername  
Dim CritDate As String
Dim CritProjekt As String 'Projekt  
Dim CritSelect As String 'Monatnr  
Dim CritTestSelect As String 'Minat Buchstabe  
Dim CritStatus As String 'Status  
Dim CritOrt As String 'Ort  
Dim CritStundensatz As String 'Stundensatz  
Dim DatVar As Variant, DatVarFld As Variant
Dim CritGESAMT As String
Dim Wort(5) As String, WortPos(5) As Integer
Dim WortNr As Integer
Dim AnzWort As Integer
Dim Mldg As String
'Dim MM As Variant, DD As Variant, YY As Variant  
'***  
If IsNull(Me![Filter_Name]) Then CritName = "" Else CritName = "[name]='" & Me![Filter_Name] & "'"  
If IsNull(Me![Filter_Date]) Then CritDate = "" Else CritDate = "[date]=#" & Format(Me![Filter_Date], "m\/d\/yy") & "#"  
If IsNull(Me![Filter_Projekt]) Then CritProjekt = "" Else CritProjekt = "[projekt]='" & Me![Filter_Projekt] & "'"  
If IsNull(Me![Filter_Select]) Then CritSelect = "" Else CritSelect = "[select]='" & Me![Filter_Select] & "'"  
If IsNull(Me![Filter_Test_Select]) Then CritTestSelect = "" Else CritTestSelect = "[test select]='" & Me![Filter_Test_Select] & "'"  
If IsNull(Me![Filter_Status]) Then CritStatus = "" Else CritStatus = "[status]='" & Me![Filter_Status] & "'"  
If IsNull(Me![Filter_Ort]) Then CritOrt = "" Else CritOrt = "[ort]='" & Me![Filter_Ort] & "'"  
If IsNull(Me![Filter_Stundensatz]) Then CritStundensatz = "" Else CritStundensatz = "[Stundensatz]='" & Me![Filter_Stundensatz] & "'"  
'If IsNull(Me![Filter_Wort]) Then CritWort = "" Else GoSub WortFilter  
'***  
If CritName = "" Then CritGESAMT = "" Else CritGESAMT = CritName  
If CritDate <> "" Then CritGESAMT = CritGESAMT & " AND " & CritDate  
If CritProjekt <> "" Then CritGESAMT = CritGESAMT & " AND " & CritProjekt  
If CritSelect <> "" Then CritGESAMT = CritGESAMT & " AND " & CritSelect  
If CritTestSelect <> "" Then CritGESAMT = CritGESAMT & " AND " & CritTestSelect  
If CritStatus <> "" Then CritGESAMT = CritGESAMT & " AND " & CritStatus  
If CritOrt <> "" Then CritGESAMT = CritGESAMT & " AND " & CritOrt  
If CritStundensatz <> "" Then CritGESAMT = CritGESAMT & " AND " & CritStundensatz  
If Left(CritGESAMT, 4) = " AND" Then CritGESAMT = Mid(CritGESAMT, 6)  
'***  
If CritGESAMT = "" Then  
    Me.FilterOn = False
    Me![FilterTxt] = ""  
Else
    Me.Filter = CritGESAMT
    Me.FilterOn = True
    Me![FilterTxt] = CritGESAMT
End If
Exit Function

Me.Filter = CritGESAMT
Me.FilterOn = True