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

 If IsNumeric(Vrijednost) = False Then
    If Format$(Vrijednost) <> "" Then
    Vrijednost = Chr(42) & Vrijednost & Chr(42)
    End If
 End If

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

 If Format$(Vrijednost) <> "" Then
     If Brojac > 0 Then
         Kriterija = Kriterija & " or "
     End If

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

 End Sub