[Resolvido]ListBox que não faz o requery

Boa tarde
Tenho uma listbox "Lista0" que lista todos os doc. em pdf contidos numa pasta chamada "PDF" que está na mesma diretoria da BD

Quando executo este comando abaixo para eliminar um Doc que quero, acontece que o doc. é anulado mas a listbox "Lista0" não faz o requery.
só fechando o formulario e voltando a abrir o doc que tinha sido eliminado já não aparece.

Aonde estou a errar ?
Obrigado


Private Sub Comando8_Click()
If MsgBox("Confirma a  " & Chr(13) & "Anulação do PDF ? ", vbYesNo + vbQuestion, "Aviso ") = vbYes Then
Dim strCaminho$
strCaminho = CurrentProject.path & "\PDF\"
Kill strCaminho & Me.Lista0.Column(0)
MsgBox "" & Me.Lista0.Column(0) & " Anulado Com Sucesso ", vbCritical, "Aviso"
Me.Lista0.Requery
Else
DoCmd.CancelEvent
Exit Sub
End If

Avelino

Aonde coloco a sua dica. É que o documento é eliminado ... Kill strCaminho & Me.Lista0.Column(0)


Me!Lista.RemoveItem strArquivo

no comando do meu botão

Private Sub Comando8_Click()
If MsgBox("Confirma a  " & Chr(13) & "Anulação do PDF ? ", vbYesNo + vbQuestion, "Aviso ") = vbYes Then
Dim strCaminho$
strCaminho = CurrentProject.path & "\PDF\"
Kill strCaminho & Me.Lista0.Column(0)
MsgBox "" & Me.Lista0.Column(0) & " Anulado Com Sucesso ", vbCritical, "Aviso"
Else
DoCmd.CancelEvent
Exit Sub
End If

Avelino

Fica a amarelo a linha

Me.Lista0.RemoveItem strCaminho & Me.Lista0.Column(0)

e informa que o item não se encontra na lista

Obrigado Mestre