samo na sql upit stavis svoju tablicu i ime listboxa i malo si popravis
nazive Fielda
Dim dato As Database
Dim rek As Recordset
Set dato = CurrentDb
Dim sqlupit As String
sqlupit = "SELECT * From roba WHERE sifra_robe = " & listbox1.value
Set rek = dato.OpenRecordset(sqlupit)
If rek.EOF = True Then
naziv = ""
Jmj = ""
sifra_porst = ""
Mpro_Cijena = ""
barcod = ""
grupamat = ""
FaktorMat = ""
oznusluga = ""
Else
naziv = rek.Fields("naziv").Value
Jmj = rek.Fields("jmj").Value
sifra_porst = rek.Fields("sifra_porst").Value
Mpro_Cijena = rek.Fields("mpro_cijena").Value
barcod = rek.Fields("barcod").Value
grupamat = rek.Fields("grupamat").Value
FaktorMat = rek.Fields("faktormat").Value
oznusluga = rek.Fields("oznusluga").Value
End If
rek.Close
Set dato = Nothing