Set lstItem = lvwA.ListItems.Add(, , rsS!XM)
lstItem.Icon = 1
lstItem.SmallIcon = 1在哪里选择需要调用的图片
如果rsS!XM返回为TRUE调用图片
如果rsS!XM返回为FALSE那么就显示空白