向高手请教,为何编辑完记录返回到有listview的主界面,界面不同步刷新?(附源码)

下面是我编辑记录的源代码,当我编辑完记录后,让界面返回到主界面,希望主界面中的listview(这里的名称为lvwthis)中显示的数据库中的记录也能同步刷新.但结果不是这样的.
   返回主界面后,listview中被编辑的记录没有被同步更改,反而多在尾部加了一条记录.加的是改过的.不过,数据库里的被编辑的记录的确是被该过来了.我试了用好几种方式刷新主界面都不行.大家帮我看看,到底问题出在那里了,好吗.这里先谢谢了.==============================================================='编辑记录
Private Sub CmdEdit_Click() Dim rs As Recordset
  
  Set rs = New Recordset
  rs.Open "select * from LT_Info02", g_cn, adOpenDynamic, adLockOptimistic, adCmdText  Dim strFilter As String
  
  'strFilter = "ID='" & LmMainFrm.lvwthis.SelectedItem.Text & "'"
  'rs.Filter = strFilter
  
  strFilter = "ID='" & Txt(0).Text & "'"
  rs.Filter = strFilter
    
  'rs.Fields!ID = Val(Trim(Txt(0).Text))
  rs.Fields!Name = Txt(1).Text
  rs.Fields!sex = Txt(2).Text
  rs.Fields!folk = Txt(3).Text
  rs.Fields!studyC = Txt(4).Text
  rs.Fields!birthday = CDate(Txt(5).Text)
  rs.Fields!polityVisage = Txt(6).Text
  rs.Fields!IDcard = Txt(7).Text
  rs.Fields!Telephone = Txt(8).Text
  rs.Fields!ifwork = Check1.Caption
  rs.Fields!FamilyAddress = Txt(10).Text
  rs.Fields!postalcode = Val(Trim(Txt(11).Text))
  
  rs.Update
  
  Dim t As Integer
  t = LmMainFrm.lvwthis.SelectedItem.Index
  LmMainFrm.lvwthis.ListItems.Remove (LmMainFrm.lvwthis.SelectedItem.Index)
  LmMainFrm.lvwthis.Refresh
'
Dim item As ListItem
Set item = LmMainFrm.lvwthis.ListItems.Add(t, , rs.Fields!ID)
  item.SubItems(1) = rs.Fields!Name
  item.SubItems(2) = rs.Fields!sex
  item.SubItems(3) = rs.Fields!folk
  item.SubItems(4) = rs.Fields!studyC
  item.SubItems(5) = rs.Fields!birthday
  item.SubItems(6) = rs.Fields!CreditTitle
  item.SubItems(7) = rs.Fields!AwardTime
  item.SubItems(8) = rs.Fields!Unit
  item.SubItems(9) = rs.Fields!duty
  
  rs.Close
  Unload Me
  LmMainFrm.Show
  Exit Sub
  
er:
  MsgBox Err.Description
  Exit SubEnd Sub