Try
VB Code:
  1. Set TItem = lvwCust.ListItems.Add(, , rsLv("fldFirstName")
  2.      TItem.Subitems(1) = rsLv("fldFamilyName")