[Resolvido] Não atualiza o ListView.

Opa pessoal, me ajudem com essa atualização por favor. No update, tudo acontece direitinho mas quando é pra atualizar o listview ele não o faz só fechando e abrindo o form. Agora, isso só ocorre se eu clicar no item, se eu estiver andando com o ponteiro usando movenext ou outros ele funciona...Por quê???? Estou colocando aí minha rotina pra ver se vocês me ajudam. Valeu galera.

Dim A As Integer

A = Form_Principal.Text16.Text 'Matricula
A = CInt(A)
B = Form_Principal.Text2.Text 'Nome
C = Form_Principal.Text3.Text 'Endereco
D = Form_Principal.Text4.Text 'Num
E = Form_Principal.Text5.Text 'Complemento
F = Form_Principal.Text6.Text 'Bairro
G = Form_Principal.Text7.Text 'Cidade
H = Form_Principal.Text8.Text 'CEP
I = Form_Principal.Combo1.Text 'Estado
J = Form_Principal.Text14.Text 'Celular
K = Form_Principal.Text13.Text 'Telefone
L = Form_Principal.Text15.Text 'Email
M = Form_Principal.Combo3.Text 'Curso
N = Form_Principal.Text17.Text 'Turma
O = Form_Principal.Text18.Text 'Empresa
P = Form_Principal.Text20.Text 'Inicio
Q = Form_Principal.Text21.Text 'Termino
R = Form_Principal.Text19.Text 'Horas
S = Form_Principal.Text10.Text 'Identidade
T = Form_Principal.Text11.Text 'Emissor
U = Form_Principal.Text12.Text 'CPF
v = Form_Principal.Combo2.Text 'Sexo
W = Form_Principal.Combo4.Text 'Situacao
X = Form_Principal.Text9.Text 'Nascimento
Y = Form_Principal.Text23.Text 'Inicio_Aditivado
Z = Form_Principal.Text22.Text 'Termino_Aditivado

Tabela_Estagiarios.Close

	Editar_Estagiario.Open "Update Estagiarios Set Matricula = " & A & " , Nome = '" & B & "', Endereco = '" & C & "', Num = '" & D & "', Complemento = '" & E & "', Bairro = '" & F & "', Cidade = '" & G & "', CEP = '" & H & "', Estado = '" & I & "', Celular = '" & J & "', Telefone = '" & K & "', Email = '" & L & "', Curso = '" & M & "', Turma = '" & N & "', Empresa = '" & O & "', Inicio = '" & P & "', Termino = '" & Q & "', Horas = '" & R & "', Identidade = '" & S & "', Emissor = '" & T & "', CPF = '" & U & "', Sexo = '" & v & "', Situacao = '" & W & "', Nascimento = '" & X & "', Inicio_Aditivado = '" & Y & "', Termino_Aditivado = '" & Z & "' Where Matricula = " & A & "", Conexao, adOpenKeySt, adLockOptimistic, adCmdText
'Tabela_Estagiarios.Open "Update Estagiarios Set Matricula = " & A & " , Nome = '" & B & "', Endereco = '" & C & "', Num = '" & D & "', Complemento = '" & E & "', Bairro = '" & F & "', Cidade = '" & G & "', CEP = '" & H & "', Estado = '" & I & "', Celular = '" & J & "', Telefone = '" & K & "', Email = '" & L & "', Curso = '" & M & "', Turma = '" & N & "', Empresa = '" & O & "', Inicio = '" & P & "', Termino = '" & Q & "', Horas = '" & R & "', Identidade = '" & S & "', Emissor = '" & T & "', CPF = '" & U & "', Sexo = '" & v & "', Situacao = '" & W & "', Nascimento = '" & X & "', Inicio_Aditivado = '" & Y & "', Termino_Aditivado = '" & Z & "' Where Matricula = " & A & "", Conexao, adOpenKeySt, adLockReadOnly, adCmdText

 Call Conexao_Geral

' ########### Limpa e atualiza a lista de Estagiarios com a ação executada
Form_Principal.ListView_Estagiarios.ListItems.Clear
Call Cabecalho_Lista_Estagiarios
While Not Tabela_Estagiarios.EOF
Img_boneco = Tabela_Estagiarios!Sexo
Img_Situacao = Tabela_Estagiarios!Situacao

If Img_Situacao = "CONCLUINTE" Then
Img_boneco_Valor = 3
Else
If Img_Situacao = "ESTAGIANDO" Then
If Img_boneco = "M" Then
Img_boneco_Valor = 1
Else
Img_boneco_Valor = 2
End If
Else
If Img_Situacao = "NÃO ESTAGIANDO" Then
Img_boneco_Valor = 4
End If
End If
End If
Set Lista_Estagiarios = Form_Principal.ListView_Estagiarios.ListItems.Add(, , Tabela_Estagiarios!Matricula, Img_boneco_Valor, Img_boneco_Valor)
Lista_Estagiarios.SubItems(1) = "" & Tabela_Estagiarios!Nome
Tabela_Estagiarios.MoveNext
Wend

On Error Resume Next
Form_Principal.ListView_Estagiarios.SelectedItem = Form_Principal.ListView_Estagiarios.ListItems(CInt(Form_Principal.Text16.Text))
On Error GoTo 0
Form_Principal.ListView_Estagiarios.SetFocus

Codigo_Estagiario_Lista = CInt(Form_Principal.ListView_Estagiarios.SelectedItem.Text)
Posicao = Codigo_Estagiario_Lista
Posicao = CInt(Posicao - 1)
Tabela_Estagiarios.Move Posicao, 1
Posicao = 0

MsgBox "Registro alterado com sucesso!!!", vbInformation, "Aviso do Sistema!"