Dim obj As ListItem
While Not rs.EOF
Set obj = myListView.ListItems.Add(i, "C" & rs("ID"), rs("姓"), 1, 1) '显示所有的联系人记录
obj.ListSubItems.Add , "D" & rs("ID"), rs("电话")
obj.ListSubItems.Add , "E" & rs("ID"), rs("传真")
obj.ListSubItems.Add , "F" & rs("ID"), rs("手机")
obj.ListSubItems.Add , "G" & rs("ID"), rs("公司名称")
obj.ListSubItems.Add , "H" & rs("ID"), rs("备注1")
obj.ListSubItems.Add , "I" & rs("ID"), rs("备注2")
obj.ListSubItems.Add , "J" & rs("ID"), rs("国家")
obj.ListSubItems.Add , "K" & rs("ID"), rs("省/自治区")
obj.ListSubItems.Add , "L" & rs("ID"), rs("市/县")
obj.ListSubItems.Add , "M" & rs("ID"), rs("区/镇")
obj.ListSubItems.Add , "N" & rs("ID"), rs("地址")
image1 有一张图片要加载到个人信息中,怎样写?