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