Private Sub pret1_Change()
    Dim MySQL As String, Rekord As String
    Dim Kriterij As String, Uslov As String
    
        Uslov = Me.pret & "%"
    MySQL = "SELECT * FROM tblArtikli WHERE "
    Kriterij = "Artikal_Ime Like '" & Uslov & "' OR "
    Kriterij = Kriterij & "Artikal_BarKod Like '" & Uslov & "' OR "
    Kriterij = Kriterij & "Artikal_Sifra Like '" & Uslov & "'"
    Rekord = MySQL & Kriterij
    Me.Adodc1.RecordSource = Rekord
 Adodc1.Refresh
End Sub

Private Sub pret3_Change()
 Dim MySQL As String, Rekord As String
    Dim Kriterij As String, Uslov As String

    Uslov = Me.pret.Text & "%"
    MySQL = "SELECT * FROM tblArtikli WHERE "
    Kriterij = "Artikal_Ime Like '" & Uslov & "'"
    Rekord = MySQL & Kriterij
    rs.Open Rekord, conn
   If Not rs.EOF And Not rs.BOF Then
    Me.Adodc1.RecordSource = Rekord
    Me.Adodc1.Refresh
    GoTo Kraj
    Else
    rs.Close
    Kriterij = "Artikal_BarKod Like '" & Uslov & "'"
    Rekord = MySQL & Kriterij
    End If
    
    rs.Open Rekord, conn
    If Not rs.EOF And Not rs.BOF Then
    Me.Adodc1.RecordSource = Rekord
    Me.Adodc1.Refresh
    GoTo Kraj
    Else
    rs.Close
    Kriterij = "Artikal_BarKod Like '" & Uslov & "'"
    Rekord = MySQL & Kriterij
    End If
    Kriterij = "Artikal_Sifra Like '" & Uslov & "'"
    Rekord = MySQL & Kriterij
    Me.Adodc1.RecordSource = Rekord
    Me.Adodc1.Refresh
Exit Sub
Kraj:
rs.Close
End Sub
Private Sub pret2_Change()
 Dim MySQL As String, Rekord As String
    Dim Kriterij As String, Uslov As String

    Uslov = Me.pret.Text
    MySQL = "SELECT tblartikli.* From tblartikli " _
    & "WHERE InStr(CONCAT(Artikal_Sifra,Artikal_BarKod,Artikal_Ime),'" & Uslov & "')>0"
    Me.Adodc1.RecordSource = MySQL
    Me.Adodc1.Refresh
End Sub