On this line Hack, it says Invalid Property value..
MyItem.SubItems(1) = Rs(0)