'dtx = LagerDB.Tables("Artikel").Clone 
'(überträgt/erstellt das gesamte Tabellen-Schema)
 
'statt dessen: explizit erstelltes Spaltenschema
'(nur benötigte Spalten)
dtx.TableName = "WhatEver"
 
With dtx.columns
   .Add("ID", Gettype(Integer)) 'falls eindeutige Schlüssel benötigt werden
   .Add("Erfassungsdatum", Gettype(Date))
   .Add("Artikelnummer", Gettype(Integer)) 'eventuell Gettype(String)
   'usw ....
End With
 
dtx.Columns("ID").Unique = True 'Schlüssel muß eindeutig sein
 
dtx.PrimaryKey = _
   New DataColumn() {dtx.Columns("ID")} 'Schlüssel ggf. einrichten