Access 2013 steigt mit oben genannter Fehlermeldung am Punkt Set
rs = Me.Recordset.Clone aus.
In Access 2000 lief es noch.
Private Sub Liste_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[id_kasse] = " & str(Me![Liste]) If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub