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 TaterZaPretragu_Click()
 Dim MySQL As String, Kriterija As String, RekordSours As String
     Dim ImepoljaT As String, ImePolja As String, ImeTabele As String
     Dim Brojac As Integer, I As Integer


     
     
     ImeTabele = "ImeTabele iz koje vrsimo pretragu" '
     MySQL = "SELECT * FROM " & ImeTabele & " WHERE "
     
     For I = 1 To 6 ' 6 je broj polja
     'Ovo su imena polja u tabeli iz koje vrsimo pretragu
     ImepoljaT = Choose(I, "ImePolja1", "ImePolja2", "ImePolja3", "Imepolja4")
     'Ovo su imena polja na formi u koja upisujemo kriterije pretrage
     ImePolja = Choose(I, "ImePolja1", "ImePolja2", "ImePolja3", "Imepolja4")
     DodajUslov Me(ImePolja), ImepoljaT, Kriterija, Brojac
     Next I
     
     If Kriterija = "" Then
         Kriterija = "True"
     End If

     RekordSours = MySQL & Kriterija
     Me.RecordSource = RekordSours
     
     If Me.RecordsetClone.RecordCount = 0 Then
         MsgBox "Nema podataka po ovom kriteriju"
     End If
 End Sub