great Thanks! i also need to change
Set db = CurrentDb
Set rst = db.OpenRecordset("Eignerbestand")

To something like

Set frm = CurrentForm
Set frm = DoCmd.OpenForm("Eignerbestand")

or i should keep it like this since its the record source