can u guys help me with this code?
VB Code:
  1. Dim itm As ListItem

  2.                     For Each itm In lvList.ListItems

  3.                         If itm.Checked Then

  4.                               rs.Index = "JobNumber"

  5.                               rs.Seek "=", lvList.SelectedItem.ListSubItems(1)

  6.                                   If Not rs.NoMatch Then

  7.                                       Call UpdateReport

  8.                                       MsgBox lvList.SelectedItem.ListSubItems(1).Text

  9.                                   Else

  10.                                       MsgBox "ERROR", vbCritical, "ERROR"

  11.                                   End If

  12.                         Else

  13.                         End If

  14.                     Next itm


it does not work. can u help me gusys with this? thanks!



-