Change
Set folder1 = ns.GetDefaultFolder(olFolderInbox).Parent.folders.Item("Datenbank")
to
Set folder1 = ns.GetDefaultFolder(olFolderInbox).Parent.folders.Item("# Datenbank")