codice:
 ListView1.ListItems.Add , , CStr(tony(0))
      For i = 0 To 6
         If IsNull(tony(i + 1)) = False Then
            ListView1.ListItems(ind).SubItems(i) = CStr(tony(i + 1))
         End If
      Next
sostituiscila con

codice:
dim mItem as listitem
set mItem = ListView1.ListItems.Add (, , CStr(tony(0)))
      For i = 0 To 6
         If IsNull(tony(i + 1)) = False Then
            mItem.listsubitems.add ,,CStr(tony(i + 1))
         End If
      Next