Dim SQL As String
openconn
SQL = "SELECT * FROM klijenti WHERE reg='" & txtReg2.Text & "';"
Set rs = conn.Execute(SQL)
If rs.EOF Then
closeconn
Exit Sub
End If
Do Until rs.EOF
ListView.SelectedItem.ListSubItems(14) = rs("status_reklamacije") ' kad postavim ListSubItems(13) radi
rs.MoveNext
Loop
closeconn
kao da je limitiran na 13 polja!!!
greska : index out of bounds