Your PopulateList sub is designed to only add one column. To add more you need to use code like this:
VB Code:
  1. oLI.SubItems(1) = "your text"