Private Sub DodajUslov(Vrijednost, ImePolja As String, Kriterija As String, Brojac As Integer)
If Trim(Format$(Vrijednost)) = "" Then GoTo Kraj
If IsNumeric(Vrijednost) = False Then
Vrijednost = Chr(39) & Vrijednost & Chr(42) & Chr(39)
End If
If IsDate(Vrijednost) Then
Vrijednost = "#" & Vrijednost & "#"
End If
If Brojac > 0 Then
Kriterija = Kriterija & " and "
End If
Kriterija = (Kriterija & ImePolja & " Like " & Vrijednost)
Brojac = Brojac + 1
Kraj:
End Sub