Não Consigo Editar os dados da listvew

[Antonio Augusto Crovador]

Boa Tarde Amigos, Estou tentando editar os dados mas ele sobrepõe e não apaga para retornar com os registros atuais.
Aguardo ajuda Deus abençoe...

Não estou conseguindo editar os dados conforme o código abaixo, ele edita os dados da textbox mas da listview ele só sobrepõe....

Private Sub cmd_salvar_Click()
On Error GoTo tratativas
Dim Conexao As Database
Dim Gravar As Recordset
Dim msg As String
Dim codigo As Integer
Dim i, j As Integer

Set Conexao = OpenDatabase(ActiveWorkbook.Path & "\DatabaseEstoque.mdb")
Set Gravar = Conexao.OpenRecordset("TB_CIDADES")

If lb_funcao_ativa.Caption = "FUNÇÃO ATIVA: INSERINDO NOVO REGISTRO....." Then
If TXT_CIDADE.Text <> "" And TXT_UF.Text <> "" Then

Gravar.AddNew

Gravar!cidade = TXT_CIDADE.Text
Gravar!UF = TXT_UF.Text

codigo = Gravar!Código
Gravar.Update

Set Gravar = Conexao.OpenRecordset("tb_saidas_itens")

'Loop as lignes
For i = 1 To ListView1.ListItems.Count

'Loop as colunas
For j = 1 To 1
Gravar.AddNew
Gravar!id_seq = txt_seq.Text / 1
Gravar!cod_produto = ListView1.ListItems(i).ListSubItems(1).Text
Gravar!qtd = ListView1.ListItems(i).ListSubItems(3).Text / 1

Gravar!vl_unitario = ListView1.ListItems(i).ListSubItems(4).Text / 1

Gravar!vl_total = ListView1.ListItems(i).ListSubItems(5).Text / 1

Gravar.Update

Next j
Next i

MsgBox "REGISTRO SALVO COM SUCESSO!", 0 + vbInformation, "SALVO COM SUCESSO"
'Call ATUALIZAR
Call Limpar
Call bloquear
cmd_editar.Locked = True
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Else

msg = "CAMPOS OBRIGATÓRIOS NÃO PREECHIDOS!" & vbNewLine
MsgBox msg, 0 + vbInformation, "CAMPOS OBRIGATÓRIOS"

Exit Sub
End If
Else

Gravar.Index = "PrimaryKey"
Gravar.Seek "=", ListView1.SelectedItem / 1
Gravar.Edit

'Campos não Obrigatórios
Gravar!cidade = TXT_CIDADE.Text
Gravar!UF = TXT_UF.Text

Gravar.Update

Set Gravar = Conexao.OpenRecordset("tb_saidas_itens")

'Loop as lignes
For i = 1 To ListView1.ListItems.Count

'Loop as colunas
For j = 1 To 1
Gravar.AddNew
Gravar!id_seq = txt_seq.Text / 1
Gravar!cod_produto = ListView1.ListItems(i).ListSubItems(1).Text
Gravar!qtd = ListView1.ListItems(i).ListSubItems(3).Text / 1

Gravar!vl_unitario = ListView1.ListItems(i).ListSubItems(4).Text / 1

Gravar!vl_total = ListView1.ListItems(i).ListSubItems(5).Text / 1

Gravar.Update

Next j
Next i

codigo = ListView1.SelectedItem / 1

MsgBox "REGISTRO ALTERADO COM SUCESSO!", 0 + vbInformation, "SALVO COM SUCESSO"
'Call ATUALIZAR
Call Limpar
Call bloquear
cmd_editar.Locked = True

End If

tratativas:

Select Case Err.Number
Case 3022
MsgBox "JÁ CADASTRADO!", 0 + vbCritical, "INCLUSÃO CANCELADA"
Case 53
Case 13
MsgBox "FORMATO INVÁLIDO, TENTE NOVAMENTE!", 0 + vbCritical, "SOMENTE VALOR NUMÉRICO"
End Select

End Sub