Private Sub Liste1_Click()
Me.FilterOn = False
Me.Refresh
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[S_ID] = " & str(Nz(Me![Liste1], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
DoCmd.RunCommand acCmdRefreshPage
Me.Liste1.Requery
Me.Liste2.Requery
Me.WebBrowser4.Navigate Me![DYolu]
End Sub