Private Sub pret_Change()

    
    Dim MySQL As String, Kriterija As String, MyRecordSource As String
    Dim Tmp As Variant

    ArgCount = 0

    MySQL = "SELECT * FROM tblArtikli WHERE "
    Kriterija = ""
    
    DodajUslov 0, "Artikal_Prodazna_Cena", Kriterij, "", "<>", "", ""
    DodajUslov Me.pret.Text, "Artikal_Ime", Kriterij, " AND ", " Like ", "%", Chr(39)
    DodajUslov 0, "Artikal_Prodazna_Cena", Kriterij, "", "<>", "", ""
    DodajUslov Me.pret.Text, "Artikal_BarKod", Kriterij, " AND ", " Like ", "%", Chr(39)
    DodajUslov [Look For Country], "[Country]", Kriterij, ArgCount

    If Kriterij = "" Then
    Exit Sub
    Else
    Kriterij = Kriterij & " ORDER BY Artikal_Ime"
    End If
    MyRecordSource = MySQL & Kriterija
    
     Set rsStavki = New ADODB.Recordset
     rsStavki.CursorLocation = adUseClient
     rsStavki.Open MyRecordSource, cn, adOpenStatic, adLockOptimistic
End Sub
Private Sub DodajUslov(Vrijednost As Variant, ImePolja As String, Kriterij As String, Arg1 As String, Arg2 As Integer, Arg3 As String, Arg4 As String)
    
    If Vrijednost <> "" Then
            Kriterij = Kriterij & Arg1
        Kriterij = (Kriterij & ImePolja & Arg2 & Arg4 & Vrijednost & Arg3 & Arg4)
    End If

End Sub