me.Feldbezeichnung =Dir$(CurrentDb.Name)