Private Sub Form_Load()
Popuni_listbox
End Sub
Private Sub Popuni_listbox()
Dim sql As String
openconn
sql = "SELECT * FROM partneri ORDER BY naziv DESC;"
Set rs = conn.Execute(sql)
If rs.EOF Then
MsgBox "U bazi ne postoji ni jedan zapis!", vbExclamation, "Access"
closeconn
Exit Sub
End If
kupac.Clear
Do Until rs.EOF
kupac = rs("naziv")
rs.MoveFirst
Loop
closeconn
End Sub