Private Sub pret_Change()
   
  Set rsStavki = New ADODB.Recordset
      rsStavki.CursorLocation = adUseClient
       rsStavki.Open "SELECT * FROM tblArtikli WHERE Artikal_Prodazna_Cena<>0 AND Artikal_Ime LIKE '%"            & Me.pret.Text & "%' OR Artikal_Prodazna_Cena<>0 AND Artikal_BarKod LIKE '%" & Me.pret.Text & "%' ORDER BY Artikal_Ime", cn, adOpenStatic, adLockOptimistic
' Ovo se odnosi na gridu     
 lstArtikli.DataSource = rsStavki
      lstArtikli.ReBind
      lstArtikli.Refresh
  
End Sub