Public Sub HapKategorin()
Dim itm As ListItem
ListView1.ListItems.Clear
If Not rsKategoria.RecordCount < 1 Then rsKategoria.MoveFirst
Do Until rsKategoria.EOF
If Not IsNull(rsKategoria!kat_id) Then Set itm = ListView1.ListItems.Add(, , rsKategoria!kat_id, 1, 1)
If Not IsNull(rsKategoria!kategoria) Then itm.SubItems(1) = rsKategoria!kategoria
Here >>>> Label5.Caption = rsKategoria!kategoria <<<<< Here
rsKategoria.MoveNext
DoEvents
Loop
End Sub


error runtime 94
invalid use of null