Why I got this error message?
Code:Private Sub ListView6_ItemClick(ByVal item As MSComctlLib.ListItem)
tablesys.Close
tablesys.Open "Select ID,Plot,Kod from yieldraster", consys, adOpenDynamic, adLockOptimistic
tablesys.MoveFirst
tablesys.Move CLng(item.Index - 1)
getID = tablesys.Fields("id").Value
Text19.Text = tablesys.Fields("Plot").Value & ""
Text20.Text = tablesys.Fields("Kod").Value & ""
End Sub
