Aşağıda ki kodu listenin çift tıklanma olayına yazın istediğiniz olacaktır.
Menfi müspet bilgi veriniz neticesi hakkında.

Private Sub Liste_DblClick(Cancel As Integer)

DoCmd.OpenReport "Eokul", acViewPreview, , "Veri.TCKimlikNo='" & Me.Liste.Column(1) & "'"

End Sub