DoCmd.CopyObject, "Tabelle kopieren", axTable, "tblKontakte"
'CopyObject(Zieldatenbank,NeuerName,Quellobjekttyp,Quellobjektname)