Pretraga vise polja u accessu

Code:
Private Sub DodajUslov(Vrijednost, ImePolja As String, Kriterija As String, Brojac As Integer)

If IsNumeric(Vrijednost) = False Then
Vrijednost = Vrijednost & Chr(42)
End If

If IsDate(Vrijednost) Then
Vrijednost = "#" & Vrijednost & "#"
End If

If Vrijednost <> "" Then
    If Brojac > 0 Then
        Kriterija = Kriterija & " and "
    End If

        Kriterija = (Kriterija & ImePolja & " Like " & Chr(39) & Vrijednost & Chr(39))
        Brojac = Brojac + 1
End If

End Sub

Private Sub Command22_Click()
Dim MySQL As String, Kriterija As String, RekordSours As String
    Dim ImepoljaT As String, ImePolja As String
    Dim Brojac As Integer, I As Integer
    Dim Tmp As Variant
    Dim Frm As Form
    
    MySQL = "SELECT * FROM ZAHTEVI  WHERE "
    
    For I = 1 To 6
    ImepoljaT = Choose(I, "DATUMPRIJEMA", "VREMEPRIJEMA", "SERBROJ", "MODEL", _
    "KORISNIK", "SERVISER")
    ImePolja = "T" & I
    DodajUslov Me(ImePolja), ImepoljaT, Kriterija, Brojac
    Next I
    
    If Kriterija = "" Then
        Kriterija = "True"
    End If

    RekordSours = MySQL & Kriterija
    DoCmd.OpenForm "NALOG"
    Set Frm = Forms("Nalog")
    Frm.RecordSource = RekordSours
    
    If Frm.RecordsetClone.RecordCount = 0 Then
        MsgBox "Nema podataka po ovom kriteriju"
        Me.Command34.SetFocus
        DoCmd.Close acForm, "NALOG"
    End If
End Sub