让listview同步更新或刷新

Question

这个是我的增加代码，请问怎么才能让listview控件同步
现在我在数据库增加后listview没有同步更新，或者说要刷新一下。应该怎么做呢。
Private Sub Command1_Click()
Dim sql As String
Dim Rs As DAO.Recordset                '申明Rs为DAO记录集对象   Set Rs = DB.OpenRecordset("kucun")   '设Rs记录集为"客户"表中所有数据      With Rs       .AddNew                      '开始新增新据       !shangpinmingcheng = shangpinmingcheng.Text '商品名称
       !jinhuojiage = ruhuojiage.Text             '进货价格
       !xiaoshoujiage = xiaoshoujiage.Text        '销售价格
       !shangpinleixingid = shangpinleixing.Text  '商品类型
       !kucunshuliang = ruku.Text                 '入库数量
       !shangpindanwei = danwei.Text      '单位
       !tishishuliang = tishi.Text             '提示
       !shangpinxinghao = xinghao.Text         '型号
       
       
              .Update                       '更新数据       .Close                        '关闭当前记录集   End With   Set Rs = Nothing
   shangpinmingcheng.Text = ""
    ruhuojiage.Text = ""
    xiaoshoujiage.Text = ""
    ruku.Text = ""
    tishi.Text = ""
    xinghao.Text = ""
    
End Sub

Answer 1

在.update后面加上
Dim itemX As ListItem
Set itemX = ListView1.ListItems.Add
itemX.SubItems(1) = shangpinmingcheng.Text
itemX.SubItems(2) = ruhuojiage.Text
itemX.SubItems(3) = xiaoshoujiage.Text
itemX.SubItems(4) = shangpinleixing.Text
itemX.SubItems(5) = ruku.Text
itemX.SubItems(6) = danwei.Text
…………
Set itemX = Nothing
直接把新纪录追加到Listview里面