zasto ovo onda ne funkcionise??
Code:
Private Sub dcboProizvod1_Change()
Set Rekordi = New ADODB.Recordset
Rekordi.LockType = adLockOptimistic
Rekordi.Open "SELECT Kod_proizvoda, Jedinicna_cena FROM Proizvod WHERE Kod_proizvoda = " & "'%" & dcboProizvod1.Text & "%' ", frmGlavna.Baza, adOpenDynamic, adLockOptimistic
txtField(3).Text = Rekordi!Jedinicna_cena
End Sub