Abrir registo via formulário

Boa tarde
Tenho uma base de dados, access, de acidentes rodoviários. Criei um formulário para os pendentes de resolução. Nele aparecem todos os registos em que "conclusão" seja falso.
Para "abrir" o acidente em questão estou a utilizar o seguinte código:

Private Sub Lista0_DblClick(Cancel As Integer)
On Error Resume Next
 Dim stDocName As String
 Dim stLinkCriteria As String
 Dim strsql As String
   stDocName = "ACIDENTES"
   stLinkCriteria = "[ID]=" & Me![Lista0]
   strsql = "SELECT * FROM ACIDENTES WHERE " & stLinkCriteria
   DoCmd.OpenForm stDocName, acNormal, , , , acHidden
   Forms!ACIDENTES.RecordSource = strsql
   DoCmd.OpenForm stDocName, acNormal, , , , acWindowNormal
End Sub

Mas não abre a linha que pretendo. O que estou a fazer mal?

Boa tarde
Em vez de
stLinkCriteria = "[ID]=" & Me![Lista0]
Tente
stLinkCriteria = "[ID]=" & Lista0.ItemData(Lista0.ListIndex)

Bom dia,

Tentei a sugestão, mas abre só o primeiro registo da tabela. Para onde posso enviar os dados para dar uma vista de olhos? O mais engraçado é que na base de dados de 2020 funciona

Bom dia Maria

Aqui no forum, veja como

https://www.maximoaccess.com/t32003-como-postar-anexos-e-imagens-no-site-maximoaccess-com

Boa tarde

Aqui vai ficheiro

Bom dia Maria

Será isto ?

Quando registar o acidente como concluído, ele desaparece da lista dos pendentes.

Maria resolveu ?

Obrigada pela tentativa.

O que eu preciso é ao clickar 2x no registo de pendentes, abrir o formulário correspondente àquela linha